1C1 
# 



IDENT 7*17 TEMPORARY ST8RAQE AND EQU'Sj C8MPILER PART 1 
ST9RAGE **# 8NE C8PY PER USER 

ACCEPT CHAR AND BRANCH BIT 



♦TEMPORARY 
« -ZVd>,£ 

$ACBBIT ZR8 

$ACBCHR ZR8 

$E8LTRG ZR8 

$FRSTCH ZR8 

SJNCXR BSS 

$X!TTP1 HUT 

*JNCAR HUT 

$MWPTRG HUT 

$ITMPCT HUT Q 

•WJMCH HUT 

$INDEX ZR8 

$SUTDEX ZR8 

$INFUE ZR8 

$8UTFUE ZR8 

$CJNF ZR8 

$C8UTF ZR8 

$6P1 ZR8 

$BP£ ZR8 Q 

$FSTATS ZR8 

$TBUE BSS 7 

$ICTTMP IRQ 

$H8UIT1 ZR8 

SH8UIT3 ZR8 

$H8UIT3 ZR8 

$H8UIT6 ZR8 

$H8UIT9 ZR8 

$VARBAS ZR8 



END 9F UINE TRIGGER 

FIRST CHAR READ BY NXACCH 

JNC8MJNG X REGISTER 

£XIT TEMP 1 

INCOMING A REGISTER 

MINUS */HlUE PUNCHING TRIGGER 

INITIAL TEMP C8UNT 

WIMED CHAR 

INPUT FILE INDEX* *liN8 FIUE SPECIFIE 

INPUT FIUE N8 
9UTPUT FILE N8 
CMMD INPUT FIUE 
CMMD 8UTPUT FILE 
BREAK P8INT X 

F8RK STATUS W8RD 
F8RK TABLE 
ICT P8P TEMP8R 



BASE ADDR 8F DEBUG VARIABLE 



♦FLAGS 

$FIC ZR8 

$FCMDIN ZR8 Q 

$FDBUG ZR8 

$FE8F ZR8 



■1»LJST C8DE (F8R DEBUGGING 8NLY) 
Q«CMMD INCREMENT NEGATIVE 
*lfPR8DUCE DEBUG INFO FQR RUNTIME 
»1?END 8F FILE READ 



$FMAP IRQ 





•i«PRjN 


$FTTY8N ZR8 







♦LINKS 






$LACB ZR8 







$UNTERA ZR6 







$LJNJTL ZR8 


Q 




$LNXACC ZR8 







$LNXINC ZR8 







$LDBFXM ZR8 







$LP8NTR ZR8 







*LFPLB ZR8 







$LFEXTY ZR8 







SUN8NES ZR8 







$LTSTMT ZR8 







$LFFF ZR8 







$ICPYLS ZR8 







$INACS ZR8 







$18PC ZR9 







$LRDY§C ZR8 







$LPRINT ZR8 







$LJNITQ ZR8 







$USCAN ZR8 







$LSERS ZR8 







♦lsels zm 







$USTRED ZR8 


Q 




$IQSNEX ZR8 







$ITYTL £R0 







$UWI8PT ZR8 







$LREASG ZR8 







$LSTFIL ZR8 







$CACBT1 ZR8 






SCACBT2 ZR8 






$UREAD ZR8 







♦M8DIFIED INSTRUCTING 


EXECUTED 



-IMPRINT F8ST C8MPILATI8N MAP 

1 * UNC8NDITI8NALLY TYPE 8N TTY 



ACCEPT CHAR AND BRANCH 



LIST FILE INDEX 



HERE 



$AX83A 


ZR8 


Q 


$A184A 


ZR8 





$A185A 


ZR8 





$A187A 


ZR8 





SA188A 


ZR8 


Q 


v A C. Oc n 


ZR9 





$A233A 


ZR8 





♦SYMB8LIC CENTRAL 


$SYMCEN 


ZR9 





$CTL1 


ZR8 


Q 


*CTL2 


ZR0 





SSYMCN2 


ZR9 






CENTRAL 1 
CENTRAL 2 



$FDL8CM ZR9 





$FLPPl ZR8 





$FLDP2 ZR8 





$FLPP3 ZR8 





$FLDP31 ZR8 





$FLDX ZR9 





$F8RKT1 ZR8 





$F8RKT2 ZR8 


Q 


SSS1INC ZR9 





$S2JNC ZR8 





$SNlPT ZR9 





$SN1PT1 ZR9 





$5N2PT ZR8 





$SN2PT1 ZR8 





$SPNPTI ZR8 





SSPNPT ZR9 





$SPNPT1 ZR8 





$BL8KCT ZR9 





$SCANMD ZR8 





$CRNTCH ZR9 






MATCH CHAR 



STATEMENT 1 INCREMENT 
STATEMENT N8t 1 PTRS 
STATEMENT N8 • 2 PTRS 



BL8CK CNT 

SCAN M8DE 
CRRNT CHAR 



$JNCHCT 


ZR8 





$IICHCT 


2R8 





$INSTCT 


ZR8 





$RDCHCT 


ZR8 





SIRCHCT 


ZR8 





$RDSTCT 


ZR8 





$IACHCT 


ZR8 





$UINECT 


ZR8 





SJLINCT 


ZR8 





$LINETP 


ZR8 





$STLBPT 


ZR8 





$CKSUM 


ZR8 





$CKSMCT 


ZR8 





*CHTSLN 


ZR8 





♦ MAX EXTIV IN 


C8MM8N 


$MX8VNC 


BSS 





$DMYCNT 


ZR8 


Q 


♦C8MM8N 


BREAK 




$C8MBRK 


BSS 





$NAMESP 


ZR8 





♦PROGRAM BREAK 




$PR8GBK 


BSS 





SMXTPCT 


ZR8 





♦END 8F 


STA TRIGGER 


$NSTTRG 


BSS 





$TMPCNT 


ZR8 





$ACTEST 


ZR8 





$UASTST 


ZR8 





SJPSTRG 


ZR8 





$SPTRIG 


ZR8 


Q 


$$PRGUB 


ZR8 





♦DP MPY 


A 




♦SAVE TEMP X 




♦READY CHAR TEMP % 


$QPMPYA 


BSS 





$SAVET1 


BSS 





$RDYCT1 


8SS 





$CTC8PY 


ZR8 





♦QP MPY 


B 





INPUT CHAR CNT 
INITIAL INPUT CHAR CNT 
INPUT ST8P CNT 
READ CHAR CNT 
INITIAL READ CHAR CNT 
READ ST8P CNT 
LAST ACTIVE CHAR CNT 
LINE CNT 

INITIAL LINE CNT 
LINES THIS PAGE 
STA LBL p NTR 
CHECK SUM 
CHECK SUM CNT 
CHARS THIS LINE 

QMY CNT 



NAME 8F SPR8G PNTR 



MAX TEMP CNT 



TEMP CNT 

ACTIVE STA TRIGGER 
LAST STA TRIGGER 
JUMP STA TRIGGER 
SPR8G TRIGGER 
START 8F PR8G LBL 



C8UNT 8F C8PY 



♦FAIL EXIT 
♦ACTIVE CHAR 
$DPMPYB BSS 
$FAILEX BSS 
$ACMTP1 BSS 
$M6FCPY IRQ 
♦DP MPY C 
♦ACTIVE CHAR 
$DPMPYC BSS 
$ACHTP2 BSS 
$CTPLEX ZR8 
♦DP MPY D 
♦INPUT CHAR TE 



$DPMPYD BSS 
$JNCHT1 BSS 
$TGTLCY IRQ 
♦C&NST TEMP A 
♦PIMENS TEMP , 
♦PACK TEMP % 
$CNSTPA BSS 
$DJMTPA BSS 
$PAKTP1 BSS 
$ST8CXX ZRa 
♦C8NST TEMP B 
♦PACK TEMP Z 
♦PIMENS TEMP I 
$CNSTPB BSS 
SPAKTP2 BSS 
SPIMTPB BSS 
$SLSTCY IRQ 
♦PACK TEMP 3 
$PAKTP3 BSS 
$CHARA ZR9 
$CHARB ZR0 
$DGSCTA ZR0 
$DGSCTB ZR8 
$DGUCTA ZR0 
$PGUCTB ZR0 
SSCDIGA ZR8 



'EMP 1 





'EMP 2 




MP 1 







MERG 8F C6PY 



COUNT 6F PLEX 



TARGET LIST 8F C8PY 



S8URCE T8P 8F C8PY 



S8URCE LIST 8F C8PY 



CHARACTERISTIC A 



CHARACTERISTIC B 

DIGITS SCANED CNT 
DIGITS SCANED CNT 
DIGITS USED CNT A 
DIGITS USED CNT 8 
SCANED DIGIT A 



$SCDIGB 


ZR8 





♦ F8L TEMP A 




♦BIM.BAM TEMP 


1 


♦ C8F TEMP l 




#FIC»FAC*FIP TEMP 1 


SF8LTPA 


BSS 





$BIAMT1 


BSS 





$C6FTP1 


BSS 





$FFFTP1 


BSS 





$SERTP1 


ZR9 


Q 


♦REASSIGN TEMP 


1 


#F8L TEMP B 




♦ADDRESS P8INTED T8 


$RSGNT1 


BSS 





$F8LTMB 


BSS 





$ADRPT8 


BSS 





$SERTP2 


ZR8 





♦REASSIGN TEMP 


2 


•DP TEMP i 




$RSGNT2 


BSS 


Q 


fPPTPl 


BSS 





$SERTP3 


ZR8 





♦REASSIGN TEMP 


3 


$RSGNT3 


BSS 





$SERTP4 


ZR8 





♦REASSIGN TEMP 


4 


$RSGNT4 


BSS 





SSERTP5 


ZR8 





$RSGNT5 


ZR8 





$QSFCTR 


ZR8 





$QSFWRD 


ZR8 





$GSFWAD 


ZR8 





$READSC 


ZR8 





$PRTTP1 


ZR8 


Q 


SECHTPl 


ZR6 





$ECHTP2 


ZR8 





$NNTPi 


BSS 


1 


$NNTP2 


ZR8 






SCANED DIGIT B 



SER TEMP 1 



SER TEMP 2 



SER TEMP 3 



SER TEMP rff 



SER TEMP 5 

REASSIGN TEMP 5 
QSF C8UNTER 
QSF W8RD 
QSF W8RD ADR 

READ SPACE C8UNT 
PRINT TEMP 1 
ENTER CHAR TEMP 1 
ENTER CHAR TEMP 2 

NN TEMP 2 



LIST MEM 
SAVED 8N DRUM F8R 
BASE BSS 
FL SCALAR BASE 
LAST BSS 
FLSBAS HLT Q 



8 R Y 

EACH SUBPROGRAM 



CREATED 
BASE 



FLSLMT BSS 

LIMIT BSS 
FX SCALAR BASE 

$FXSBA HLT 70008 

HLT 74008 

$ HLT 7600B 

HLT 7700B 

HLT 77J0B 

♦GL9BAL SPR8G BASE 

$GLSBAS HLT 7720B 

HLT 7730B 

HLT 7740B 

HLT 7750B 

HLT 7760B 

♦EXTIV DATA BASE 

$QVDTBS HLT 7770B 

HLT 7777B 

#C90E BASE 

$CDBASE HLT 7777B 

HLT 7777B 

♦PLEX BASE 

$PLXBAS HLT 7777B 

♦ W8RK BASE 

•WRKBAS HLT 7777B 

♦EXIT BASE 

$XBASE HLT 7777B 

*EXIT LIMIT 

$XLIMJT HLT 7777B 

HLT 7777B 



LIST MEM8RY (INITIALIZED T8 -LSTMEM) 

FL SCALAR LIMIT 
LIMIT 

7000 
7400 
7600 
7700 
7710 

7720 
7730 
7740 
7750 
7760 

7770 
7777 

7777 
7777 

7777 

7777 

7777 

7777 
7777 



*SVUIMI 


BSS 





•PUNCH 1 


BASE 




SPCHBAS 


HUT 


7777B 


$§TART 


HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 




$GVDSTR 


HUT 
HUT 
HUT 





$QVHSTR 


HUT 
HUT 
HUT 
HUT 
HUT 
HUT 





$PCHSTR 


HUT 





*T8P 


HUT 
HUT 
HUT 
HUT 
HUT 





$ARYT8P 


HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 
HUT 





$C8DT8P 


HUT 





$QVHT9P 


HUT 






SAVE LIMIT 

7777 

START 



EXTIV DATA START 
EXTIV H9LD START 



PUNCH START 
T9P 



ARRAY T8P 



C9DE T8P 
EXTIV H8UD T9P 



HUT 

HIT 

HIT 

HUT 

HLT 

$PCHT8P HUT 

$B8TT9M BSS 

$FUSC8T HUT 

$FXSB8T HUT 

HUT 

HUT 

HUT 

HUT 

$GUSB9T HUT 

HUT 

HUT 

HUT 

HUT 

$QVDB8T HUT 

D6U9BM EXT 

$M8DB8T HUT 

$C8DB8T HUT 

HUT 

$PUEXBT HUT 

$WRKB8T HUT 

*EXJBST HUT 

HUT 

$SVB8T HUT 

$FNCHBT HUT 

NCARDS EQU 

NCARDS EXT 

IBSIZE EQU 

IBSIZE EXT 

*NPBUFF BSS 



Q 

# 










9 
9 

73*NCARDSM + 39 
73»NCARDS/4*39 
IBSIZE 



PUNCH T8P 

B8TT8M 

FU SCAUAR 88TT8M 

FX SCAUAR 88TT8M 



GU8BAU SPR8G B8TT8M 



EXTIV DATA B8TT8M 
08 U88PS 8PEN B8TT8M 
M8DE B8TT8M 
C8DE B8TT8M 

PUEX B8TT8M 
W8RK B8TT8M 
EXIT B8TT8M 

SAVE B8TT8M 
PUNCH B8TT8M 

NUMBER 8F C8NTINUATI8N CARDS 

INPUT BUFFER SIZE 
INPUT BUFFER 



$USTMEM HUT 
*E N D 8 F 



U I S T 



START 8F UJST MEM8RY 
M E M 8 R Y 



FLSUST 
FXSUST 
LBLIST 



PAGE 

EXT 
EXT 
EXT 



LIST D E F | 



»FL C9NST LIST 
FLCIST EXT 



ERSYLS 
FXCLST 
AYYLST 
GLSUST 
GDUIST 

L8CSPL 
teCDMl 
♦C8MM8N 



EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
LIST 



3 
3 
4 
5 
6 
7 

10B 
XXB 



♦SPR8G ARGUMENT LIST 
♦DIMENS LIST 
*ERR8R ©PUT LIST 
C8LJST EXT 12B 
SPARGL EXT 12B 
DIMUST EXT i?B 
ERLIST EXT 12B 
SUMLST EXT 12B 
♦EXTIV DATA LIST 

♦ PR8D LIST 
♦TERM LIST 
♦SCRIPT EXP LI 
QPATLS EXT 
PR8DLS EXT 
TERMLS EXT 
SCREXL EXT 
ERSTLS EXT 



♦ D8 L88PS 8PEN 
♦EXTIV 8PUT LI 
D8LST EXT 
Q8PTLS EXT 
M8DLST EXT 

♦ C8DE LIST 
C8DLST EXT 



ST 

X3B 

13B 

13B 

13B 
13B 

LIST 
ST 

14B 

HB 

15B 



N I T I 9 N S 
FL SCALAR LIST 
FX SCALAR LIST 
LBL LIST 

ERR8R SYMB8L LIST 

FX C8NST LIST 
ARRAY LIST 
GL8BAL SPR8Q LIST 
GL8BAL DMY LIST 
L©CAL SPR8G LIST 
LOCAL DMY LIST 



SUM LIST 



ERR8R ST8P LIST 



M8DE LIST 



EXTIV TEMP LIST 



QTPIS 


EXT 


15B 


♦SCRIPT LIST 




SCRIST 


EXT 


16B 


QNDUS 


EXT 


16B 


PLEXLS 


EXT 


17B 


WQRKtT 


EXT 


2QB 


XJTLS 


EXT 


2XB 


FAILDL 


EXT 


228 


SAVELS 


EXT 


23B 


PUNCHL 


EXT 


248 




PAGE 


P8P# 


SETUDP 


EXT 


2008 


STRP8P 


EXT 


2108 


DTRP8P 


EXT 


2208 


AGTP8P 


EXT 


2248 


FARGP8 


EXT 


2308 


NEXJAP 


EXT 


2348 


I8Tp8p 


EXT 


2408 


FTCHP0 


EXT 


244B 


8KFP8P 


EXT 


250B 


APDP8P 


EXT 


254B 


SUBP8P 


EXT 


264B 


MPYP8P 


EXT 


2748 


0IVP8P 


EXT 


3048 


CHSP8P 


EXT 


3J48 


ASLP8P 


EXT 


3208 


LBLL8P 


EXT 


6 


DELL8P 


EXT 


10B 


SYSL8P 


EXT 


12B 


BLKL8P 


EXT 


14B 


ABSL8P 


EXT 


22B 


BRUM8P 


EXT 


2 


BRRM8P 


EXT 


1238 


BRR8P 


EXT 


122B 


ADDM8P 


EXT 


1323 


SKGM8P 


EXT 


166B 


MLTM8P 


EXT 





HLTI8P 


EXT 


1 


HLTJNS 


EXT 


23B 



EXTJV H8LD LIST 



PLEX 

W8RK 
EXIT 
FAIL 
SAVE 
PUNCH 



LIST 
LIST 
LIST 

DATA LIST 
LIST 
LIST 



L8P* AND M8P DEFINJTI8NS (D8UBLED) 
SET UP DMY PQP 
ST8RE P8P 
D8 TRAP P8p 
ASSIGN G8 T8 P8P 
FIRST ARG PdP 
NEXT ARG P8P 
18 TRAP p8p 
FETCH P8P 
8K FETCH P8P 
ADD P8P 
SUB PBP 
MPY P8P 
DIV P8P 
CHS P8P 
ASSIGN LBL P8P 

LBL L9P 
DEL L8P 
SYS L8P 
BLK L8P 
ABS L8P 
BRU MSP 
BRR* M8P 
BRR 8P 
ADD M8P 
SKG M8P 
HLT M8P 



BRM8P 


EXT 


U361B 


SBRM* M8P 


BRMM6P 


EXT 


1068 


BRM M8P 


N8PM8P 


EXT 


408 


N8P M8P 


LDXM6P 


EXT 


162B 


LDX M8P 


L0AM6P 


EXT 


174B 


IDA M8P 


STAM8P 


EXT 


728 




STLM6P 


EXT 


334B 


STATEMENT LABEL M8P 


EAX8PP 


EXT 


576B 


EAX*M8P 


MIN8P 


EXT 


H2B 


MJN M8P 


# 

• RUNTIME LINK [ 


3EFINITJ8NS 


STUNK 


EXT 


1 


START 8F DMYS LINK 


NDYLNK 


EXT 


2 


END 8F DMYS LINK 


ST6PSU 


EXT 


3 


ST8P SPR8Q LINK 


WRITSL 


EXT 


4 


WRITE SPR8G LINK 


siPiei 


EXT 


5 


ST8P I»6 LINK 


READSL 


EXT 


6 


READ SPR8G LINK 


PAUSSL 


EXT 


118 


PAUSE SPR8G LINK 


DECFSL 


EXT 


128 


DECLARE FILE SFR8G LINK 


8PENSL 


EXT 


133 


8PEN FILE SPR8G LINK 


CUFSL 


EXT 


148 


CL8SE FILE SPR8G LINK 


CLAFSL 


EXT 


15B 


CL8SE ALL FILES 3PR8G LINK 


CGTLNK 


EXT 


20B 


C8MPUTED G8 T8 SRR8G LINK 


ISSLNK 


EXT 


228 


IF SENSE SWITCH LINK 


ISLLNK 


£XT 


23B 


IF SENSE LIGHT LINK 


isvlnk 


EXT 


24B 


IF 8VERFL8W LINK 


SENISU 


EXT 


27B 


SENSE LIGHT SPR8G LINK 


EXPSPL 


EXT 


408 


EXP8N SPR8G LINK (P8WER SyBR 


FJXSPL 


EXT 


31B 


FIX SPR8G LINK 


F18TSL 


EXT 


328 


FL8AT SPR8G LINK 


I81UAU 


EXT 


33B 


I8L UNSCRIPTED ARRAY LINK 




PAGE 


FUAG 


AND PLEX DEFINITI8N3 


FLSIDF 


EXT 


0000 


FL SCALAR IQ FLAG 


FXSIDF 


EXT 


0100B 


FX SCALAR ID FLAG 


FXCSTF 


EXT 


040QB 


FX C8NST FLAG 


AYIDF6 


EXT 


05008 


ARRAY ID FLAG 


GSPIDF 


EXT 


0600B 


GL8BAL SPR8G ID FLAG 


LSPIDF 


EXT 


1000B 


L8CAL SPR8G ID FLAG 



LDYJDF EXT UOOB 
MJNUAP EXT 7741B 
♦MJNUS N8NADDRESSABLE 
MJNNAP EXT 7701B 
MJNUSF EXT 7701B 
♦SUM TERM PLEX 



PlEX 



SUMTPX EXT 
SUMFIG EXT 
ADDPIX EXT 

♦ PR6D TERM 
PR8DTP EXT 
PR8DFG EXT 
MPYPIX EXT 

♦ DIV TERM 



7600B 
7600B 
76Q2B 
PLEX 

7500B 
7500B 
7502B 
PLEX 



DIVTPX EXT 7403B 
DIVFG EXT 7402B 
FCTFLG EXT 73Q2B 
FCTTPX EXT 7302B 
♦EXP8N TERM PLEX 
EXPTPX EXT 7202B 
EXPFG EXT 7202B 
FJXTpX EXT 7101B 
♦SINGLY SCRIPTED ARRAY PLEX 
SCRAPX EXT 6742B 
SCRAFG EXT 6742B 
♦SPEC SCRIPTED ARRAY 



SPSAPX 

SPSAFG 

♦ARRAY 

AYDGP 

SPAGPX 

WO 

wg 

W3 

W5 
W6 



EXT 
EXT 

DIMENS 

EXT 

EXT 

PAGE 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 



PLEX 
6643B 
6643B 

GR8UP PLEX 
6500B 
6500B 

EFFECTIVE 


37777B 
37776B 
37775B 
37774B 
37773B 
37772B 



ADDRESS 



L6CAL DMY ID FLAG 
MINUS ADDRESSABLE PLEX 

MINUS FLAG 



SUM FLAG 

ADD PLEX 

PR6D FLAG 

MPY PLEX 

DIV FLAG 

FUNCTI8N FLAG 
FUNCTI8N TERM PLEX 

EXP8N FLAG 

FIX TERM PLEX 

SINGLY SCRIPTED ARRAY FLAG 

SPEC SCRIPTED ARRAY FLAG 

SPR8G ARG GR8UP PLEX 

DEFINITI8NS 

WO 

Wl 

W2 

W3 
W4 
W5 
W6 



B8TSZ2 


EXT 





B6TSZ3 


EXT 





SIZEM1 


EXT 





BQTP1 


EXT 





B8TM1 


EXT 
END 






(B6TTeM*SIZE+2> 
(B8TT6M*SIZE+3) 
(S!ZE«1) 
(B8TT8M+1 ) 
(B9TT8M*!) 



2C1 JDENT 7*17 FORTRAN C9MPILER* PART 2 
# 9RIGIN AT W£B » * 



#R C 

* 

FCL 

FCR 

8XC 

XBC 

CA 

CB 

* 

AB 

8A 

BX 

XB 

XA 

AX 



H 



P 



9PD 
9Pp 
9PQ 
0PD 
EQU 
EQU 
CX 

EGU 
EQU 
EQU 
EQU 
EQU 
EQU 



# 

*M A C R 9 S 

* 

BEQ 
BNE 
M9VE 
M8VE1 



MACR8 

MACR9 
MACR9 
NARG 

IF 



DEFINITIONS 



^6004508#2 
4600224B#2 
46Q0022B#2 
2^600040B#2 



1 

2 

EQU 

103 

20B 

40B 

2008 

400B 



CLEAR A 

20000000B 

A TB B 



FULL CYCLE LEFT 
FULL CYCLE RIGHT 
B T9 X# CLB 

x Te Bj clx 



ARPAS DEMANDS »2 



BRU IF EQUAL* SKE D(l)l BRU *+2j BRU D(2)j ENDM 
BRU IF N9T EQUAL! SKE D(l); BRU D<2); ENDM 



M9VE2 



'D<1*1#2> »*»*0* 

CLtD(MaVEl) 

ELSF 1 

LD.D(M8VE1) D(i) 

ENDF 

EQU 2 

RPT M8VE1-2 

ST.D(MSVEl) D(M9VE2) 



MevEa 


EQU 
ENDR 


M8VE2+1 




* 


ENOM 






* 

* p 


R 3 R 


AMMED 9PERAT8R 


BAM 


8PD 


IOOOOOOOBM/1 




CSF 


6PD 


10!OOOQOB/l#l 




CSA 


8PP 


ioaoooooB/i#i 




JAT 


8PD 


10300000B>1>1 




JAF 


8PD 


104000008/1/1 




TRY 


8PD 


1Q500000B/1/1 




QSF 


8PD 


10600000B/1/1 




STD 


8PD 


10700000B/1/1 




FET 


8PD 


llOOOOOOB/l/l 




SWT 


8PD 


111000008/1,1 




JRS 


0PP 


112000Q0B/1/1 




BIF 


8PD 


11300000B#1#1 




MC6 


8P0 


114000008/1/1 




seL 


8P0 


11500000B/1/1 




S8F 


8PD 


11600000B/1/1 




RSV 


8PD 


11700000B/1/1 




CNT 


8PD 


120000008/1,1 




RLS 


8PD 


121000C0B/1/1 




T8T 


8PD 


122C00C0B/1/1 




FIL 


8PD 


123000008/ 1/1 




M6N 


8PD 


12400000B/1/1 




UDP 


8PD 


12500000B/1/1 




BIF 


8PD 


126000008/1/1 




SAL 


8PD 


127000COB/1/1 




PUL 


8PD 


130000Q0B/ bl 




BNG 


8PD 


13100000B/1,! 




BAF 


8PQ 


13200000B/1/1 




CAR 


8PD 


1330000QB/1/1 




Pie 


8PD 


1340G0G0B/1/1 




CAC 


8PD 


13500000B/1/1 




CIC 


8PD 


13600OQ0B/1,! 




FIC 


8P0 


137Q0000B/1/1 




FAC 


8P0 


140000008/1^1 





DEFINITI8NS 



Bap 


9PD 


141000008/1*1 


M©F 


8PP 


142000Q0B*1*1 


SNE 


9PD 


14300000B*1*1 


SER 


9PD 


144000006*1*1 


LCF 


9PD 


145000008*1*1 


FJP 


aPD 


146000008*1*1 


ADR 


9PD 


14700000B#i#l 


ESS 


9PQ 


150000008*1*1 


S9B 


9PD 


15100000B*1*1 


sst 


9PQ 


152000008*1*1 


SDP 


9PD 


15300000B#1*1 


ADP 


9PP 


154000008*1*1 


REC 


9P0 


155000008*1*1 


C8F 


9PD 


156000008*1*1 


LCe 


9P0 


157000006*1*1 


PRC 


9PD 


160000008*1*1 


PRQ 


8PD 


16100000B,!*! 


sec 


9P0 


162000008*1*1 


BIM 


9PD 


163000008*1*1 


FEX 


9PD 


16400000B*1*1 


ICT 


9PD 


165000006*1*1 


*EXEC 


ENTRY* 


START AND RESTART 


$PS 


BRU 


INITAZ 


$RS 


LDA 


9NES 




STA 


INFLE 




STA 


9UTFLE 




CLA 






STA 


FSTATS 




BRU 


RUB1 


♦INITIALIZE 


M9DIFIED CMMDS 


INITAZ 


LDX 
CLA 


s«4000B 




STA 


400QB*2 




8RX 


**1 




M9VE 


A183I*A183A*A 




M9VE 


A184I*A184A*A 




M9VE 


A185I*A185A*A 




M9VE 


A187I#A187A*A 




M8VE 


A188I*A188A*A 





M8VE 


A232l#A232A,A 




M8VE 


A233I/A233A/A 




M8VE 


SCENU#SYMCEN#A 




M8VE 


SCENI2#SYMCN2,A 


*P8P 


LINKS 






LDX 


MINS64 


Pll 


LDA 


PBRUE/2 




STA 


200Bi2 




BRX 


PLI 




SBRM 


INITLS 




M8VE 


fl#C8UTF#A 


♦ SET 


•1 FLAGS 




PSl 


LDA 


8NES 




STA 


BPJ 




STA 


INDEX 




STA 


9UTDEX 


♦ SET 


FLAG 
CLA 






STA 


FDBUG 




STA 


BP2 




STA 


FMAP 




LDA 


si 




STA 


LSTFIL 




PRC 


CARRET 


♦ SET 


BREAK TABLE 




CLA 






LDX 


»«1 




BRS 


12 




M8VE 


»PNEWS#TBLE#A 




LDA 


FTBLE 




CAX 






BRS 


9 




N8P 


PNEWS 


PWAJ1 


" BRS 


31 




STX 


FSTATS 




BRS 


17 




LDX 


QNES 




BRS 


29 




LDA 


8NES 



MINUS 64 

PQP BRU TABLE END 



INITIALIZE C8MPILER LISTS 
CMMD 8UTPUT FILE 



C8DE 8UTPUT ASSUMED 

SYMB INPUT FILE INDEX 
BINARY 8UTPUT FJLE INDEX 



N8 DEBUGGING INF8 ASSUMED 
N8 LISTING ASSUMED 



ADDR 8F F8RK TBLE 
8PEN F8RK 

F8RK STATUS 
CLEAR TTY 8UTPUT BUFFER 





STA 


INFLE 




STA 


8UTFLE 


RUB* 


PRC 
CLA 


CARRET 




LDX 


**1 




BRS 


12 




LDX 


FSTATS 




BRU 


*H/2 




BRU 


RUB 




BRU 


BADQP 




PRQ 


MEMQT 




BRU 


PRL6C 


BADeP 


PRQ 


RDERQT 


PRL8C 


IDA 


TBUE 




ETR 


ADRMSK 




LD3 


EIGHT 




LDX 


8NE 




BRS 


36 




PRC 


CARRET 


RUB 


TCB 


BELL 




PRC 


PLUS 




LDX 


9NES 




BRS 


11 




CIS 


ZER8 




STA 


FSTATS 




MeVE 


*CS2#TBLE#A 




LDA 


FTBLE 




CAX 






BRS 


9 




N8P 


CS2 




BRU 


PWAJT 


PNEWS 


p^Wi^— - ~~— - ~-~ 


-NEj^rr""--'- 




BRU 


CS 


CS2 


LDA 


FSTATS 




BRU 


CSS 


$CSBAD 


PRC 


QMARK 




LDX 


ONES 




BRS 


11 


♦C8MMAND INPUT 


START 



SET BREAK TABLE 

F9RK STATUS 



MEM6RY PANIC 
READ ERR8R QU8TE 

PRINT L8CATI8N 



(TEMP) 



LATEST NEWS 



CLEAR TTY INPUT BUFFER AFTER ERR8R 



$cs 


BRS 17 




IDA 8NES 




STA INFLE 




STA 9yTFLE 




PRC CARRET ~" "" 


CS7 


PRC PLUS 


C51 


CI9 ZER8 




SKE «155B; BRU C$3i BRy CS7*1 


CS3 


§KE il52B; BRU CS5J BRU CS7*1 


CS5 


CLX; SBRM ACB 




DATA 'CUCC0MP 




DATA »M»+CMAP 




DATA U'+CSETJN 




DATA *8'+CST8UT 




DATA *N'+CN8 




DATA 'D«+CDEBUG 




DATA 'L'+CLIST 




DATA '''+CQU8TE 




DATA 6BIT+CSBAD 


♦SET INPUT FILE 


CSETIN 


PRQ JNFGT 




PRQ FRFQT 




CLA 




BRS J5 




BRU CSBAD 




STA INDEX 




BRU CS 




LDA 8NES 




STA INDEX 




BRU CSBAD 


♦SET 9UTPUT FILE 


CST8UT 


PRQ 8UTFQT 




PRQ T8FQT 


CST8T1 


CLA 




BRS 18 




m\J CST8T5 




STA 8UTDEX 




BRU CS 


CST8T3 


LDA 8NES 





STA 9UTDEX 


CSTST5 


PRQ WHATQT 




BRU CST8T1 


CMAP 


PRQ MAPQT 




JCT PERiaD 




8RU CSBAD 




MaVE 3NES#FMAP>A 




BRU CS 


CDEBUQ 


PRQ DBUGQT 




ICT PERI9D 




BRU CSBAD 




IDA 9NES 


CDB1 


STA FDBUG 




BRU CS 


*UIST 


STATEMENTS CMMD 


CLIST 


PRQ USTQT 




PRQ T6FQT 




CLA 




BRS 18 




BRU CSBAD 




XAB 




IDA QNES 




STA BP2 




STB ISTFIL 




STA FMAP 




BRU CS 


*N8 LIST CMMD 


CNLIST 


PRQ LISTQT 




ICT PERIOD 




BRU CSBAD 




CLA 




LDB *1 




STA BP2 




STA FMAP 




STB LSTFIL 




BRU CS 


♦QU9TE 


M9DE 


CQU8TE 


LDA §2 




LDA f-1 



BRS 12 
CG2 CJ8 ZER8 

BEQ m*B/CS 

BRU CQ2 

*N8 CMMQ 

CN8 PRC IETER8 
PRC SPACE 
CIS ZERO 
ClX; S8RM ACB 
DATA »M»+CNMAP 
DATA »L'+CNUIST 
DATA 'D'+CNDBUG 

DATA 6BIT+CSBAD 

CNMAP PRQ MARQT 

ICT PERI9D 

BRU CSBAD 

M8VE 50#FMAPjA 

BRU CS 
CNDBUG PRO DBUGQT 

ICT PERI8D 

BRU CSBAD 

CLA 

BRU CDB1 
CBADLT PRQ BADLTQ BAD LIST 8PENING 

BRU CS 

CC8MP PRQ C8MPQT 
ICT PERI8D 
BRU CSBAD 
PRC CARRET 
UDA s»l 
ske; INDEX 

8RU * + 2 

BRU CC8MP1 
SKE 8UTDEX 



BRU 


CC8MP3 




CC8MP1 PRQ 


WI8QT 


WHAT 1/8 QT 


BRU 


CSBAD 




cceMpa prq 


*IRI8QT 


WR8NG 1/8 QT 


&RU 


CSBAD 




CC8MP3 LDA 


INDEX 




3RS 


16 




BRU 


CSBAD 




STA 


INFLE 




CBA 






SKE 


THREE 


SYMB FILE TYPE 


BRU 


CC8MP2 




LDA 


8UTDEX 




UDB 


*1024 




LDX 


TW8 




BRS 


19 




BRU 


CSBAD 




STA 


8UTFLE 




IDA 


MJNUS2 


MINUS TW8 


STA 


LINETP 


LINES THIS PAGE 


LDA 


LSTFIL 




UDX 


*3 




SKG 


■2 




BRU 


* + 3 




BRS 


19 




8RU 


CBADLT 




STA 


C8UTF 




CLA 






STA 


FLC 


LIST C8DE (F8R DEBUGGING) 


STA 


FE8F 


FLAG END 8F FILE READ 


STA 


INCHCT 


INPUT CHAR CNT 


STA 


INSTCT 


INPUT ST8P CNT 


STA 


RDCHCT 


READ CHAR CNT 


STA 


RDSTCT 


READ ST8P CNT 


IDA 


MJNUSl 


MINUS 8NE 


STA 


READSC 


READ SPACE C8UNT 


*START QF C8MPIUER 




SSTRCMP S8RM 


INITLS 


INITIALIZE LISTS 


CLA 







S98 
STA 

STA 

STA 

STA 

IDA 

STA 

IDA 

STA 

STA 

STA 

STA 

STA 

♦JOB CARD XL 

J6BCDX JRS 

CSA 

JAF 

JRS 

BRU 

♦HEAD STA XL 

HEADSX JRS 

#N8 J8B CARD 

N8JBCE TRY 

JAF 

M8F 

M0F 

JRS 

•SUBROUTINE 

SUBRSX FEX 

QSF 

JRS 

JRS 

CSA 

JAF 

BRU 

•FUNCTION ST 

FCTSXU FEX 

QSF 

JRS 



XITLS 

ITMPCT 

DMYCNT 

CRNTCH 

HXTPCT 

ONE 

LINECT 

MINUS1 

SPTRIG 

ACTEST 

IASTST 

816KCT 

CKSMCT 

ATE 

SINIT 

ASTRSK 

N8JBCE 

RELPRT 

J8BCDX 

ATE 

SINIT 
ENTRY 
LBFLDX 
ILLINX 
C8DLST 
C8DIST 
SVLSDT 

STA XLATE 
FCTSXL 
SUBRQT 
SCLIDS 
SPRGHG 
UPAREN 
HEADEX 
DYSQSC 

A XLATE 
MA1NPX 
FNCTQT 
SCLIDS 



EXIT LIST 

INITIAL TEMP C9UNT 

DMY CNT 

CRRNT CHAR 

MAX TEMP CNT 

8NE 

LINE CNT 

MINUS 8NE 

SPR6G TRIGGER 

ACTIVE STA TRIGGER 

LAST STA TRIGGER 

BL8CK CNT 

CHECK SUM CNT 

STA INITIALIZE 



STA INITIALIZE 

LBL FIELD XLATE 
ILLEGAL LINE XLATE 



SAVE LIST DATA 

FUNCTTI6N STA XLATE 
SUBR8UTINE QT 
SCALAR ID SCAN 
SPR8G HEAD GEN 
L PAREN 
HEAD EXIT 
DMY SEQ SCAN 

MAIN PR8GRAM XLATE 
FUNCTION QT 
SCALAR ID SCAN 





JRS 


SPRGHG 




CSF 


LPAREN 


♦DMY SEQ SCAN 




DYSQSC 


BLF 


STLINK 


A2 


JRS 


IDSCAN 




JAT 


INCNFA 




SER 


3DLIST 




JAT 


INCNFA 




Mce 


GDLIST 




JRS 


DYTPMK 




S8B 


GDLIST 




BAM 


SETUDP 




CSA 


C9MMA 




JAT 


A2 




CSF 


RPAREN 




BLF 


NDYLNK 


♦HEAD ] 


EXIT 




HEADEX 


ADR 


C9DLST 




CAR 


W6RKLT 




CSF 


CARET 




SRU 


A62 


♦ SPR8G 


HEAD GEN 


SPRGHG 


LDA 


WO/2 




STA 


NAMESP 




FJL 


SPTJTL 




FIl 


ZER9 




Mce 


C8DLST 




FIL 


NMARKR 




JRS 


LBLMAK 




STA 


SPRGLB 




BIF 


LBLL6P 




FIL 


HLT0P 




BRU 


CLR1AE 


♦ MAIN ! 


PROGRAM 


XLATE 


MAINPX 


RLS 


SAVELS 




FIL 


MPTITL 




FIL 


ZER9 




FIL 


ALLD&L 




FIL 


ALLD9L 



SPR6G HEAD 


GEN 


L PAREN 




START BF DMYS LINK 


ID SCAN 




ID C9NFLICT 


' FAIL 


GL8BAL DMY 


LIST 


ID C9NFLICT 


r FAIL 


GL8BAL DMY 


LIST 


DMY TEMP MAKER 


GL9BAL DMY 


LIST 


SET UP DMY 


P8P 


CBMMA 




Al 




R PAREN 




END 8F DMYS 


; LINK 


C8DE LIST 




W9RK LIST 





wo 

NAME 8F SPR9G PNTR 

SPR9G TITLE 

ZER9 

C9DE LIST 

END MARKER 

LBL MAKER 

START 9F PR8G LBL 

LBL L8P 

CLEAR 9NE AND EXIT 

SAVE LIST 

MPRQG TITLE 

ZER9 

ALL D8LLARS 

ALL D9LLARS 



FIL 

MIN 

ADR 

CAR 

JRS 

BRU 

#B8DY STA XL 

$B8DYSX JRS 

TRY 

JAF 

TRY 

SKR 

N8P 

*MAJN PR8G E 

MAINPE JRS 

FEX 

CSA 

JAT 

CSA 

JAT 

CSA 

JAT 

♦IF STA XIAT 

IFSTAX QSF 

CSA 

JAF 

JRS 

JRS 

CSF 

JR3 

FIL 

8IF 

JRS 

Fit 

♦IF STA EXIT 

$IFSXIT BIF 

JRS 

BIF 

BRU 



NMARKR 
SPTRIG 

C80LST 
W8RKLT 
PCHC8D 
MAINPE 
ATE 

SINIT 

LBFLDX 

IlLINX 

IBMEND 

LASTST 


NTRY 

SVUSDT 
ASSMSX 

G 

G8T8GP 
D 

D8RDIM 
LETER8 
9PENSX 
E 

IFQT 
LPAREN 
FAIL 
EXPXLT 

M8DREL 
RPAREN 
LBC8MA 
SKARI 
BRUM8P 
LBC8MA 
SKGRZI 
S 

3RUM8P 

LBSCAN 
BRUM8P 
JPE8LE 



END MARKER 
SPR8G TRIGGER 
C8DE LIST 
W8RK LIST 
PUNCH C8DE 
MAIN PR8G ENTRY 



LBL FIELD XLATE 
ILLEGAL LINE XLATE 

LAST STATEMENT TRIG, 



SAVE LIST DATA 

ASSIGNMENT STA XLATE 

G 

G8 T8 GR8UP 

D 

D8 8R DIMENSI8N 

8PEN FILE STA XLATE 

IF QT 

L PAREN 

FAIL 

EXP REMEMBER M8DE XLATE 

MSDE RELEASE 

R PAREN 

LBL C8MMA SCAN 

SKA RUN TIME SIGN BIT INST 

BRU M8P 

LBL C8MMA SCAN 

SKG RUN TIME ZER8 INST 

BRU M8P 
LBL SCAN 
BRU MQR 
JUMP E8L EXIT 



*8PEN FILE STA 
8PENSX QSF 

CSF 
JRS 
CSF 
8LF 
CSA 
JAF 
QSF 
FIL 
BRU 
8PNSX3 QSF 

FIL 
8PNSX5 CSF 

SBRM 

FET 
8PNSX2 CSA 

JAT 

SBRM 



8PNSX4 



6PNSX7 



8PNSX8 



IDA 
STA 
JRS 
IDA 
XMA 
SUB 
ADD 
ABC 
LSH 
PIV 
STA 
S8B 
BAF 

BRU 
JRS 
S8B 
SKR 
3RU 
BIF 



XLATE 

9PENQT 
LPAREN 

FXPXL 

C8MMA 

DECFSL 
I 

8PNSX3 

IFLQT 

INP8P 

8PNSX5 

8FLGT 

8UTP8P 

C8MMA 

NXACCH 

LACHCT 

RPAREN 

8PNSX4 

NXACCH 

8PNSX2 

ILINCT 

LINECT 

LMBRUG 

Wl/2 

INCHCT 

F8UR 

I 

THREE 

W8RKLT 
ABSL8P 
8PNSX8 
PAKSTR 
CQPLST 

8PNSX7 
LBLL8P 



8PEN QT 



DECLARE FILE SPR8G LINK 



INPUT FILE GT 
INPUT 8P 

8UTPUT FILE QT 
8UTPUT 8P 

NEXT ACTIVE CHARACTER* ADVANCE PAST , 
LAST ACTIVE CHAR CNT 



INITIAL LINE CNT 

LINE CNT 

LBL MAKER 3RU GEN 

INPUT CHAR CNT 



W8RK LIST 
W8RD C8UNT 

PACK STRING 



SKR 


WRKB9T 


BRU 


ACEBLE 


*D8 OR DIMENSION 


D8RDIM CSA 


UETER8 


JAF 


DIMSX 


♦08 STA XLATE 




D8SX JRS 


LBSCAN 


CSA 


COMMA 


JRS 


SCLIDS 


CSF 


EQUAL 


JRS 


D8CTLX 


MON 


D8LST 


BRJ 


JPE8LE 


»D8 CONTROL XLATE 


DOCTLX JRS 


M8DSET 


JRS 


XPMDX 


CSF 


COMMA 


FET 


W0#2 


BIM 


STRP8P 


JRS 


LM8RUG 


JRS 


LMLBLG 


FET 


W2#2 


JRS 


XPSCAN 


JRS 


SCRGEN 


JRS 


GRNMOO 


CSA 


COMMA 


JAT 


A3 


JRS 


ISMOFL 


JAT 


A4 


FET 


Wl#2 


BIF 


MIN8P 


JRS 


XPBYMG 


FIl 


RTAFX1 


8IF 


SKGM8P 


BRU 


A6 


A3 JRS 


GRNM8D 


JRS 


XPMDX 



LETTER 

DIMENSION 



STA XLATE 



LBL SCAN 

COMMA 

SCALAR ID SCAN 

EQUAL 

DO CONTROL XLATE 
P8 LOOPS OPEN LIST 
JUMP E8L EXIT 



XLATE 



BRU 
LBL 



GEN 
GEN 



MODE SET 

EXP BY MODE 

COMMA 

WO 

STORE POP 

LBL MAKER 

LBL MAKER 

W2 

EXP SCAN 

SCRIPT GEN 

GRNTEE ADDRESSABLE 

COMMA 

Al 

IS MODE FL 

A2 

Wl 

MIN 

EXP 

RUN 

SKG 

A4 

GRNTEE ADDRESSABLE 

EXP BY MODE XLATE 



BY MODE GEN 



M8P 

BY MODE GEN 

TIME ADD FX 

Mgp 



ONE 



BY MODE GEN 





BRU 


A5 


A4 


JRS 


GRNM8D 




FIL 


RTLFLl 


A5 


BAM 


DTRP8P 




BIF 


HLTM8P 


A6 


JRS 


LMBRUG 




BIF 


LBLL8P 




BIF 


BRUM8P 




SKR 


M8DB8T 




M8F 


C8DLST 




M8N 


Q8LST 




M$F 


C8DLST 




M8N 


D8LST 




BIF 


LBLL8P 




BRU 


CLR1AE 


♦DIMENSJ8N STA XLATE 


DJMSX 


QSF 


IMENQT 




RLS 


PLEXLS 




RSV 


DIMUST 


A7 


JRS 


IDSCAN 




JAT 


INCNFA 




Mca 


AYYLST 




CSF 


LPAREN 




FET 


8NE 




FET 


ZER8 




FET 


ZER8 




BRU 


A9 


A8 


JRS 


RGFXCS 




M8N 


DIMLST 


A9 


JRS 


SIGN IS 




CSA 


VRGULE 




JAT 


AlO 




LDP 


DP8NE 




STD 


DIMTPA 




BRU 


All 


A10 


LDP 


CTLX 




STO 


DIMTPA 




JRS 


SIGN IS 


A|l 


LDA 


OIMTPB 



A3 

GRNTEE ADDRESSABLE BY M8DE GEN 

RUN TIME LDP FL 8NE 

D8 TRAP P8P 

HLT M8P 

LBL MAKER BRU GEN 

LBL L8P 

BRU M8P 

M8DE B8TT8M 

C8DE LIST 

D8 Le8PS 8PEN LIST 

C8DE LIST 

D8 LQePS 8PEN LIST 

LBL L8P 

CLEAR 8NE AND EXIT 

IMENSI9N QT 

PLEX LIST 

OIMENS LIST 

ID SCAN 

ID C8NFLICT FAIL 

ARRAY LIST -• NAME 8F VARIABLE 

L PAREN 

8NE 

ZER8 

ZER8 

A3 

REGISTER FX C8NST 

DIMENS LIST 

SIGNED INTEGER SCAN 

VIRGULE 

A4 

PP 8NE 

DJMENS TEMP A 

A5 

CENTRAL I 
DIMENS TEMP A 
SIGNED INTEGER SCAN 
DIMENS TEMP B 



M UL 


W2/2 


W2 


RSM 


I 


1 


ADP 


Wl*2 


Wl 


STD 


Wl#2 


wi 


SQL 


MAXASA 


MAX ARRAY SIZE ALLIED 


JAT 


JLALFA 


ILLEGAL ALLQCATI9N FAIL 


LDP 


CTU1 


CENTRAL I 


SDP 


DIMTPA 


DIMENS TEMP A 


SKA 


SIGNBT 


SIGN BIT 


BRU 


ILALFA 


ILLEGAL ALL8CATI8N FAIL 


ADP 


DP8NE 


DP 8NE 


STP 


CTU 


CENTRAL 1 


CBA 






MUL 


W2/2 


W2 


RSM 


1 


1 


STB 


W2j2 


W2 


S8L 


MAXASA 


MAX ARRAY SIZE ALL8WED 


JAT 


ILALFA 


ILLEGAL ALL8CATI8N FAIL 


CSA 


C6MMA 


C8MMA 


JAT 


A8 


A2 


CSF 


RPAREN 


R PAREN 


MSN 


AYYLST 


ARRAY LIST 


SKR 


WRKB8T 


W8RK B8TT8M 


M8N 


AYYLST 


ARRAY LIST 


PL9 


AYDGP 


ARRAY DIMENS GR8UP PLEX 


CAC 


DIMLST 


DIMENS LIST 


MQN 


AYYLST 


ARRAY LIST 


CSA 


C8MMA 


C8MMA 


JAT 


A7 


Al 


CSA 


CARRET 


CAR RETURN 


JAF 


A7 


Al 


RLS 


DIMLST 


DIMENS LIST 


RSV 


PLEXLS 


PLEX LIST 


8RU 


CUA8UT 


CLEAN UP AND 8UTPUT 


*G8 T9 GR8JP 






G8T86P QSF 


8T9CT 


8T8 QT 


S8C 


DIGTFL 


DIGIT FLAG 


JAF 


C8RAGT 


C8MPUTED 8R ASSIGN G8 T 


#68 T8 STA XLATE 





G8T8SX JRS 
8IF 

BRU 

♦C8MPUTED 8R 

C8RAGT CSA 

JAF 

♦C8MPUTED G8 

CGT8SX RSV 

Ai2 JRS 

CSA 

JAT 

CSF 

CSA 

JRS 

BUF 

CNT 

SAF 

A13 T8T 

JAF 

BIF 

BRU 

A14 RLS 

BRU 

♦ASSIGN G8 T 

AGT8SX JRS 

JRS 

BAM 

CSA 

JAF 

CSF 

A15 JRS 

CSA 

JAT 

CSF 

3RU 
♦ASSIGNMENT 
ASSMSX FEX 

JRS 

CSA 



UBSCAN 

3RUM8P 

JPE8LE 
ASSIGN G8 T8 

UPAREN 

AGT8SX 
T8 STA XLATE 

W8RKLT 

UBSCAN 

C8MMA 

A 12 

RPAREN 

C8MMA 

FXPXl 

CGTLNK 

W8RKLT 

HLTM8P 

W8RKUT 

A14 

BRUM8P 

A13 

W8RKLT 

JPE81E 
8 STA XUATE 

VARSCN 

SCRGEN 

AGTP8P 

C8MMA 

JPE8UE 

UPAREN 

UBSCAN 

C8MMA 

A15 

RPAREN 

JPE8UE 
STA XUATE 

AFDFSX 

VARSCN 

EQUAU 



UBL SCAN 

BRU M8P 

JUMR E3U EXIT 

U PAREN 

ASSIGN G8 T8 STA XUATE 

W8RK UIST 

UBU SCAN 

C8MMA 

Al 

R PAREN 

C8MMA 

FX EXP XUATE 

COMPUTED G8 T8 UJNK 

W8RK UIST 

NUT M8P 

W8RK UIST 

A3 

BRU M8P 

A2 

W8RK UIST 

JUMP E9U EXIT 

VAR SCAN 

SCRIPT GEN 

ASSIGN G8 T8 P9P 

C8MMA 

JUMP E8U EXIT 

I PAREN 

UBU SCAN 

C8MMA 

Al 

R PAREN 

JUMP E8U EXIT 



ARITH FUN 
VAR SCAN 

EGUAU 



PEF STA XUATE 



JAF 


FAIL 


TAIL 


JRS 


XPSCAN 


EXP SCAN 


CSF 


CARET 


CAR RETURN 


SKN 


BP1 




BRU 


ACEXIT 


ACTIVE EXIT 


JRS 


SETMTG 


SET M8DE THEN GEN 


JRS 


STFMG 


ST8RE F8RGET M8DE 


8RU 


ACEXJT 


ACTIVE EXIT 


#ARITH FUN DEF 


STA XLATE 




AFDFSX SKN 


ACTEST 


ACTIVE STA TRIGGER 


BRU 


F8RSXL 


F8RMAT STA XLATE 


FEX 


F8RSXL 


F8RMAT STA XLATE 


JRS 


1DSCAN 


ID SCAN 


JAT 


FAIL 


FAIL 


CSA 


LRAREN 


L PAREN 


JAF 


FAIL 


FAIL 


sec 


UETRFG 


LETTER FLAG 


JAF 


FAIL 


FAIL 


FET 


ZER8 


ZER8 


JRS 


STDMEV 


STANDARD MODE EVAL 


M8N 


M8DLST 


M8DE LIST 


Mca 


L8CSPL 


L8CAL SPR8G LIST 


JRS 


LMBRUG 


LBL MAKER BRU GEN 


JRS 


LMLBLG 


LBL MAKER LBL GEN 


see 


19CSPL 


LBCAL SPR8G LIST 


FIL 


HLT8P 


MALT INSTRUCTI8N 


BLF 


STLINK 


START 8F DMYS LINK 


A16 JRS 


SYMBSC 


SYMB8L SCAN 


SER 


U9CDML 


L8CAL DMY LIST 


JAT 


FAIL 


FAIL 


Mca 


L9CDML 


LOCAL DMY LIST 


JRS 


DYTPMK 


DMY TEMP MAKER 


S8B 


L9CDML 


L8CAL DMY LIST 


BAM 


SETUDP 


SET UP DMY P8P 


CSA 


C9MMA 


C8MMA 


JAT 


A16 


Al 


CSA 


RPAREN 


R PAREN 


JAF 


FAIL 


FAIL 


CSA 


EQUAL 


EQUAL 



GEN 



JAF 


FAIL 


Bir 


NDYLNK 


JRS 


XPHDX 


RLS 


L9C0ML 


BIF 


BRR9P 


BIF 


LBLLRP 


SKR 


M8DB8T 


UDA 


TMPCNT 


STA 


ITMPCT 


BRU 


IAE8LX 


♦FORMAT STA 


XLATE 


F8RSXL FEX 


F8RKSX 


QSF 


FRMTQT 


CSF 


LPAREN 


FET 


LACHCT 


JRS 


FLSTSC 


UDA 


ILINCT 


STA 


LINECT 


JRS 


LMBRUG 


IDA 


Wl#2 


XMA 


INCHCT 


SUB 


Wl#2 


ADO 


F9UR 


ABC 




LSH 


1 


DIV 


THREE 


STA 


Wl*2 


S8B 


W9RKLT 


BAF 


ABSL8P 


8RU 


A18 


A17 JRS 


PAKSTR 


see 


CeOLST 


A18 SKR 


Wl*c 


BRU 


A17 


BIF 


LBLL8P 


SKR 


WRKB8T 


BRU 


IAE8LX 


•F8RMAT LIST 


SCAN 


FLSTSC EQU 


* 



FAIL 

END ©F DMYS LINK 

EXP BY M8DE XLATE 
L8CAL DMY LIST 
BRR 8P 
LBL L8P 
M8DE B8TT8M 
TEMP C8UNT 
INITIAL TEMP C8UNT 
INACTIVE E8L EXIT 

F8RK STA XLATE 

F8RMAT QT 

L PAREN 

LAST ACTIVE CHAR CNT 

F8RMAT LIST SCAN 

INITIAL LINE CNT 

LINE CNT 

LBL MAKER BRU GEN 

Wl 

INPUT CHAR CNT 

Wl 

F8UR 



CALCULATE N6« 8F W8RQS 

Wl 

W8RK LIST 

ABS L8P 

A2 

PACK STRING 

C9DE LIST 

Wl 

Al 

LBL L8P 

W8RK B8TT8M 

INACTIVE E8L EXIT 



A19 CSA RPAREN 

JAT EXIT 

A20 CSA VRGULE 

JAT A21 

JRS FBASSC 

CSA VRGULE 

JAF A22 

A21 CSA VRGULE 

JAT A21 

CSA C8MMA 

JAT A20 

BRU A19 

A22 CSA C9MMA 

JAT A20 

CSA RPAREN 

JAF A20 

BRU EXIT 

♦FORMAT BASIC SCAN 

FBASSC CSA DOLLAR 

JAT A30 

CSA MINUS 

JAT A23 

CSA PLUS 

JAF A24 

A23 JRS INSCAN 

CSF P 

BRU A25 

A24 S9C DIGTFL 

JAF A27 

JRS INSCAN 

CSA P 

JAF A26 

A25 §9C DIGTFL 

JAF A27 

JRS INSCAN 

A26 LDA CTL2 

SKG ZERO 

8RU ILNUFA 

CSA X 



R PAREN 

EXIT 

VIRGULE 

A3 

F9RMAT BASIC SCAN 

VIRGULE 

A4 

VIRGULE 

A3 

C8MMA 

A2 

Al 

C8MMA 

A2 

R PAREN 

A2 

EXIT 

D8LLAR 

A8 

MINUS 

Al 

PLUS 

A2 

INTEGER SCAN 

P 

A4 

DIGIT FLAG 

A5 

INTEGER SCAN 

P 

A3 

DIGIT FLAG 

A5 

INTEGER SCAN 

CENTRAL 2 

ZER9 

ILLEGAL NUMBER FAIL 

X 





JAT 


A33 


AH 




CSA 


H 


H 




JAT 


A32 


AID 


A27 


CSA 


E 


E 




JAT 


A28 


A6 




CSA 


F 


F 




JAT 


A28 


A6 




CSA 


LETER6 






JAT 


INSCAN 






CSA 


I 


I 




JAT 


INSCAN 


INTEGER SCAN 




CSA 


A 


A 




JAT_ 


INSCAN 


INT£G£R_.5CAN / ,. 




csF 


UPAREN 


L PAREN l " ' 




BRU 


FLSTSC 


FORMAT LIST SCAN '" - 


A28 


JRS 


INSCAN 


INTEGER SCAN 




CSF 


PERIOD 


PERIOD 




BRU 


INSCAN 


INTEGER SCAN 


A29 


SBRM 


NXACCH 


NEXT ACTIVE CHAR 




S8C 


TCRBFG 


TAB-CAR RETURN*BACKSPACE 




JAT 


IISYFA 


ILLEGAL SYNTAX FAIL 


A3Q 


^ Wf*! 


DOLLAR 


DOLLAR 




JAF 


A29 


A7 




BRU 


A33 


All 


A31 


LDA 


UBLKFG 


USE BLANKS FLAG 




STA 


SCANMD 


SCAN MODE 




SOC 


TCRBFG 


TAB-CAR RETURN-BACKSPACE FLAG 




JAT 


ILSYFA 


ILLEGAL SYNTAX FAIL 




LOA 


SKBLFG 


SKIP BLANKS FLAG 




STA 


3CANMD 


SCAN MODE 


A32 


CLA 








STA 


CRNTCH 


CRRNT CHAR 




SKR 


CTL2 


CENTRAL 2 




SRU 


A3! 


A9 


A33 


SOC 


CVRPFG 


COMMA*VIRGULE*R PAREN FLAG 




JAT 


EXIT 


EXIT 




BRU 


FBASSC 


F8RMAT BASIC SCAN 


*F8RK 


STA XLATE 




FORKSX 


FEX 


WAITSX 


WAIT STA XLATE 



FK5 



GSF 


F8RKGT 






JRS 


LBLMAK 


LABEL MAKER 




FET 


W0*2 






BIF 


LDAM8P 






JRS 


LBLMAK 






FET 


W0#2 






BIF 


STAM8P 






JRS 


LBLMAK 






FET 


WO* 2 






BIF 


LDAM9P 






FIL 


BRS9 


START F8RK 




JRS 


LMSRUG 


" LABEL MAKER BRU 


GEN 


IDA 


W0*2 






STA 


F8RKT1 






SKR 


WRKBBT 






BIF 


LBLL8P 






FET 


W0*2 






BIF 


HLTM8P 






IDA 


W0*2 






XMA 


Wl*2 






§TA 


W0#2 






BIF 


LBLL9P 






JRS 


LBLMAK 






IDA 


WO* 2 






STA 


F0RKT2 






BIF 


HLTM8P 






BIF 


LBLL8P 






FET 


SIX 






Fit 


ZER8 






SKR 


W0#2 






BRU 


FK5 






SKR 


WRKBdT 






FET 


F8RKT2 






BIF 


LBLL9P 






JRS 


IDSCAN 






JAF 


A3^A 






S6T 


GSPIDF 






JAT 


A35A 






8RU 


INCNFA 







A34A 
A35A 



A36A 



♦ WAIT 
WAITSX 



*CAU 
CALU.SX 



A34 
A35 



A36 

♦CLOSE 
CLFSX 



B8P 
MC8 
CSA 
JAF 

JRS 
CSF 

JRS 

jrs 

BIF 
Fit 
FET 

BIF 

BRU 
STA XL 

FEX 

QSF 

FIL 

BRU 
STA XL 

FEX 

GSF 

JRS 

JAF 

S8T 

JAT 

BRU 
B8P 
MC8 
CSA 
JAF 
JRS 
CSF 
JRS 
JRS 

BIF 
BRU 
FILE 
FEX 

GSF 



GLSLST 

GLSLST 

LPAREN 

A36A 

SPASQS 

RPAREN 

SCRGEN 

SPASQG 

3RM8P 

BRSIO 

F8RKT1 

LBLL8P 

ACE8LE 

ATE 

CALLSX 
WAITQT 
BRS31 
ACE8LE 

ATE 

CLFSX 

CALLQT 
IDSCAN 
A34 

GSPIDF 
A35 

INCNFA 
GLSLST 
GLSLST 
LPAREN 
A36 

SPASQS 
RPAREN 
SCRGEN 
SPASQG 
BRM8P 
ACE8LE 
STA XTE 
C8NTSX 
CL8SQT 



ST8P F8RK 



CALL STA XLATE 



ACTIVE E8L EXIT 

CL8SE FILE STA XLATE 

CALL QT 

ID SCAN 

Al 

GLOBAL SPR0G ID FLAG 

Ap 

ID CONFLICT FAIL 

GL8BA.L SPR9G LIST 

GLOBAL SPR8G LIST 

L PAREN 

A 4 

SPR8G ARG SEQ SCAN 

R PAREN 

SCRIPT GEN 

SPR8G ARG SE3 GEN 

BRM^ M8P 

ACTIVE E8L EXIT 

C8NTINUE STA XLATE 



CSA 


LPAREN 




JAF 


CLFSX7 




CIFSX3 gRS 


FXPXL 


FIXED EXPRESSI8N XLATE 


BLF 


CLFSL 


CL8SE FILE SPR8G LINK 


CSA 


C9MMA 




JAT 


CLFSX3 




CSF 


RPAREN 




BRU 


ACE8LE 


ACTIVE E8L EXIT 


CLFSX7 BLF 


CLAFSL 


CL8SE ALL FILES SPR8G L 


£RU 


ACE8LE 




♦C6NTINUE STA XLATE 




C8NTSX FEX 


TYPESX 


TYPE STA XLATE 


QSF 


C8NTGT 


C9NTINUE QT 


BRU 


ACE8LE 


ACTIVE E8L EXIT 


♦ TYPE STA XIATE 




TYPESX FEX 


ACPAIR 


ACCEPT PAIR 


QSF 


TYPEQT 


TYPE QT 


TYPSX1 UDA 


1 1 


TTY 8UTPUT 


STA 


CTL2 




siRS 


RGFXCS 


REGISTER FIXED C8NSTANT 


8IF 


LDAM9P 




BLF 


WRITSL 


WRITE SPR8Q LINK 


BRU 


LCI8LX 


LBL C8MMA I8L XLATE 


♦ACCEPT PAIR 






ACPAIR FEX 


ACCTSX 


ACCEPT STA XLATE 


QSF 


ACCPTQ 


ACCEPT QT 


♦ACCEPT TAPE 


STA XLATE 




ACTSX QSF 


TAPEQT 


TAPE QT 


BLF 


READSL 


READ SUBPR8GRAM LINK 


BRU 


LCI8LX 


LBL C8MMA I8L XLATE 


♦ACCEPT STA XUATE 




ACCTSX FEX 


READGP 


READ GR8UP 


QSF 


ACCPTQ 


ACCEPT QT 


nt 


CLA8P 


1/8 UNIT ZER8 


BLF 


READSL 


READ SPR8G LINK 


BRU 


ICIBUX 


LBL C8MMA I8L XLATE 


♦READ GR8UP 






READQP FEX 


WRITGP 


WRITE GR8UP 


QSF 


READQT 


READ QT 



*TSS READ STA 


XLATE 




READSX 


JRS 


FXPXL 


FX EXP XLATE 




BtF 


READSL 


READ SPROG LINK 




BRU 


CLCISX 


COMMA LBL COMMA I0L XLATE 


•WRITE 


GROUP 






WRITGP 


FEX 


PHPAIR 


PUNCH PAIR 




GSF 


WRITEG 




♦ TSS WRITE STA 


XLATE 




WRITSX 


JRS 


FXPXL 


FX EXP XLATE 




BLF 


WRITSL 


WRITE SPROG LINK 


♦COMMA 


LBL COMMA IOL XLATE 




CICI8X 


CSF 


COMMA 


COMMA 




BRU 


LCIOLX 


LBL COMMA I8L XLATE 


♦PUNCH 


PAIR 






PHPAIR 


FEX 


PRNTSX 


PRINT STA XLATE 




QSF 


PUNCHG 


PUNCH QT 




SOC 


DIGTFL 


DIGIT FLAG 




JAF 


PCHTSX 


PUNCH TAPE STA XLATE 


♦PUNCH 


STA XLATE 






BRU 


TYPSX1 




♦PUNCH 


TAPE STA XLATE 




PCHTSX 


GSF 


TAPEGT 


TAPE QT 




BRU 


TYPSX1 




♦PRINT 


STA XLATE 




PRNTSX 


FEX 


IFGRUP 


JF GROUP 




QSF 


PRINTQ 


PRINT QT 




BRU 


TYPSX1 




♦ LBL COMMA I8L 


'XLATE 




ICI6LX 


S8C 


DIGTFL 


DIGIT FLAG 




JAT 


D36C 






TRY 


UNSCAS 


UNSUBSCRJPTED ARRAY SCAN 




JAF 


D36E 




♦ARRAY 


NAME 








PUL 


WORKLT 


WORK LIST 




IDA 


Wl,2 






STA 


W0#2 






JRS 


L^DCTL 


LOAD CENTRAL 




SER 


GDLIST 


GLOBAL DMY LIST 




JAF 


D36A 





BNG TW9 (DUMMY POINTER) 

BIF HUTIBP HIT* MOP (INDIRECT) 

SKR WRKB9T *I8RK B8TT8M 

BRU CMI8LX CSMMA I OL XLATE 

D36A FET W0#2 

S8F FLFLAG FLOATING FLAG 

BNG TWe OFFSET) 

JAF D36B 

ADD Via, 2 (D8UBLE F8R FL8ATING) 

STA WQ,2 

D36B BAF DELL8P 

BRU D36D 
♦STATEMENT LABEL 

D36C JRS LBSCAN LBL SCAN 

D36D BIF MLTM8P MLT M8P 

BRU CMI8LX C8MMA I8L XLATE 

♦SCALAR VARIABLE (T8 WHICH F8RMAT STA LABEL HAS BEEN ASSIGNED 

D36E JRS VARSCN 

S8F SCAjDF SCALAR jD FLAG 

JAF D36F 
♦UNSUBSCRIPTED SCALAR 

BAM AGTP8P ASSIGN G8 T8 P8P 

BRU CMI8LX C8MMA I8L XLATE 

♦UNSCRIPTED SCALAR 

D36F JRS LMBRUG LBL MAKER BRU GEN 

JRS LMLBLG LBL MAKER LBL GEN 

SWT W2/2 

FIL HLTINS HLT INSTRUCTION 

JRS SCRGEN SCRIPT GEN 

BAM FARGP8 FIRST ARG P8P 

BIF LBLL8P LBL L8P 

BIF 8RRM6P BRR MQP 



♦C8MMA I9L XLATE 

CMI8LX CSA C8MMA C8MMA 

JAF I8LEND I8L END 

JRS I8LXLA I8L XLATE 

♦I8L END 



I9LEND 


BLF 


STPI9L 




BRU 


ACE8LE 


*ieu xlate 




I9LXLA 


RSV 


C8DLST 


A37 


CSA 


LPAREN 




JAF 


A38 




JRS 


I8LXLA 




CSF 


RPAREN 




BRy 


A41 


A38 


TRY 


UNSCAS 




JAF 


A39 




FET 


WO/ 2 




BAM 


FARGP8 




PUL 


W6RKLT 




SKR 


WRKB8T 




BNG 


THREE 




BAF 


NEXTAP 




BLF 


I8LJAL 




BRU 


A41 


A39 


JRS 


VARSCN 




JRS 


SCRGEN 


A40 


BAM 


I8TP9P 


A#l 


CSA 


C8MMA 




JAF 


A42 




TRY 


SCLIDS 




JAF 


A37 




CSA 


EQUAL 




JAF 


A40 




ADR 


D8LST 




C8F 


C8DUST 




JRS 


D9CTLX 




BRU 


A43 


A42 


ADR 


D8LST 




C8F 


C8DLST 


A43 


ADR 


C8DLST 




CAR 


D8LST 




BRU 


EXIT 


♦IF GR8UP 




IFGRUP 


FEX 


ASSNSX 



ST8P 1*8 LINK 
ACTIVE E8L EXIT 

C8DE LIST 

L PAREN 

Al 

I8L XLATE 

R PAREN 

A3 

UNSCRIPTED ARRAY SCAN 

A2 

WO 

FIRST ARG P8P 

W8RK LIST 

W8RK B8TT8M 

THREE 

NEXT ARG P8P 

I9L UNSCRIPTED ARRAY LINK 

A3 

VAR SCAN 

SCRIPT GEN 

18 TRAP P8P 

C8MMA 

A7 

SCALAR ID SCAN 

A4 

EQUAL 

A 5 

D8 L88PS 8PEN LIST 

C8DE LIST 

P8 C8NTR8L XLATE 

A6 

D8 L98PS 8PEN LIST 

C9DE LIST 

C8DE LIST 

D8 L88PS 8PEN LIST 

EXIT 

ASSIGN STA XLATE 



QSF 


IFQT 


CSA 


LPAREN 


JAT 


JFSPAR 


#IF 8VERFL9W 


STA XLATE 


irevsx qsf 


FUQT 


QSF 


avFtQt 


ADR 


J8VUNK 


&RU 


JFS0VX 


$NUST £R8 


PS«1 


6BIT EQU 


400000B 


NEWSQT ASC 
* 


>- 



JF QT 

L PAREN 
IF SENSE 



PAIR 



END 



FL9ATING GT 

0VERFL8W QT 

IF 6VERFL8W LINK 

IF SENSE*8VERFLBW XLATE 

END 8F C9MPILER LISTS 

NEWS NULL* PUT MSG BETWEEN D8TS. 
SEMIC9L9N F6R CR/LF. 



4 \zf#< 



o4 / 



3CX 


JDENT 


7*17 COMPILER 


SETT 


MACR8 


Q) UDtOO) ' 


*« 


SETF 


MACRQ 


0; CL«P(2)J 


s 


BAM 


9PD 


10000000B#Ij 


p! 


CSF 


8PD 


10100000B#1j 


»1 


CSA 


8PD 


10200000B,1j 


»i 


JAT 


8PD 


103000008*3,, 


p1 


JAF 


QPD 


10400000B#L 


pi 


TRY 


apo 


X0500000B/1, 


p! 


QSF 


8PD 


10600000B/lj 


il 


STD 


QPD 


107000008*1, 


p1 


FET 


QPD 


HOOOOOOB/Ij 


»x 


SWT 


9PP 


11100000B/L 


rX 


JRS 


BPD 


11200000B/1j 


»1 


BIF 


8PQ 


XX300000B/L 


>X 


Mce 


8P0 


114000008/ 1, 


-X 


sei 


8PD 


U500000B/L 


>x 


S8F 


8PD 


116000008*1, 


ft 


RSV 


8PD 


11700000B/L 


pX 


CNT 


0PD 


iZOOQOQQSili 


• X 


RUS 


§PQ 


X21000Q0B#1, 


Pi 


T6T 


8PD 


12200000B#1j 


'X 


FIL 


8PD 


12300000B/1, 


Pi 


M8N 


SPD 


12400000B*Xj 


pX 


LPP 


8PD 


12500000B#X, 


pX 


BIF 


8PQ 


X2600000B*!, 


a 


SAL 


8Pp 


12700000B#1j 


pX 


PUL 


8PD 


13000000B/1J 


pX 


BMG 


8PD 


X3100000B*Xj 


pX 


BAF 


8PD 


13200000B#1j 


Pi 


CAR 


9PP 


13300000BUj 


Pi 


P18 


8PP 


X3400000B/1j 


pX 


CAC 


8PP 


135000008* L 


pX 


CIC 


8PD 


1360G0Q0B*!, 


»x 


ric 


8PD 


13700000B*!, 


pX 



, PART 3 



; ST.D(2> DU)J ENDM 
*D(2) D(l)| ENDM 



FAC 




8PD 


HOOOOOOBj 


rl 


il 


B8P 




8PD 


141000008; 


»3u 


il 


M8F 




8PD 


14200000B, 


tli 


tl 


SNE 




8P0 


143000G0Bj 


tli 


tl 


SER 




8PD 


144000008; 


»1j 


tl 


LCF 




8P0 


145000Q0B, 


tli 


tl 


FJP 




8PD 


14600000Bj 


il* 


»1 


ADR 




QPO 


14700000B, 


tli 


il 


ess 




8PD 


15000000B; 


tli 


»l 


S88 




8PD 


151000C0B; 


iIj 


tl 


set 




8PD 


152C0000Bj 


*u 


»1 


SDP 




8PD 


15300000Bj 


tli 


tl 


ADP 




8PD 


15400000B, 


tli 


tl 


REC 




8PD 


15500000B, 


tli 


► 1 


C8F 




8PP 


15600000B, 


»1j 


► 1 


ice 




9PD 


157000Q0B; 


»L 


il 


PRC 




8PD 


16000000Bj 


>\t 


»l 


PRQ 




8PD 


16100000B; 


tli 


.1 


S8C 




8PQ 


16200000Bi 


tit 


tl 


BIM 




8PQ 


163000008; 


>1j 


»1 


FEX 




8PD 


164000008; 


tit 


»1 


•IF 


SENSE PAIR 








SIFSPAR QSF 


SENSEQ 










CSA 


S 










JAF 


IFSUX 






•IF 


SENSE SWITCH STA XLA1 


IE 




IFSSSX 


QSF 


WITCHQ 










ADR 


JSSLNK 










BRy 


IFSLSX 






♦ IF 


SENSE LIGHT STA XLATE 






IFSLX 


QSF 


UIGHTQ 










ADR 


ISUINK 






• IF 


SENSE LIGHT-tSWITCH XI 


.A" 


rE 


IFSSSX 


JRS 


FXPXU 










CSF 


RPAREN 






♦ IF 


SENSE-OVERFLOW XLATE 






$IFS8VX BLF* 


WO, 2 










SKR 


WRKB8T 










JRS 


LBC8MA. 







SENSE QT 
S 
IF SENSE LIGHT STA XLATE 

WITCH GT 

IF SENSE SWITCH LINK 

IF SENSE LI6HT»SWITCH XLATE 

LIGHT QT 

IF SENSE LIGHT LINK 

FX EXP XLATE 

R PAREN 



WO 
W8RKB8TT8M 
LBL C8MMA SCAN 



♦ASSIG 
$ASSNS 



♦SENSE 
SENtSX 



*C8MM8 
C8MMSX 

A45 



•EQUIV 
EQUXLA 



A44 



BRU 
N STA 

X FEX 

QSF 
JRS 
QSF 
JRS 
JRS 
BAM 
BIF 
BRU 
LIGHT 
FEX 
QSF 
QSF 
JRS 
BIF 
BRU 
N STA 
FEX 

asF 

JRS 
SER 
JAT 
ADR 
JRS 
JAT 
MC8 
CSA 
JAT 
BRU 
AUENCE 
FEX 
QSF 
JRS 
RSV 
CSF 
JRS 
CSF 



IFSXIT 
XLATE 

SENISX 
ASSGNQ 
IBSCAN 
T8QT 
VARSCN 
SCRGEN 
ASLPQP 
3RUM8P 
ACE8LE 

STA XLATE 
C9MMSX 
SENSEQ 
UIGHTQ 
FXPXL 
SENLSL 
ACE8LE 
XLATE 

EQUXLA 

CM8NQT 

SYMBSC 

C8LIST 

ILALFA 

QDATLS 

QLSRCH 

ILALFA 

C8LIST 

C8MMA 

A45 

IAE8LX 

STA XLATE 
RTRNSX 
EQUIVQ 
CYEQDT 
QTPLS 
LPAREN 
QSEGX 
RPAREN 



IF STA EXITS 

SENSE LIGHT STA XLATE 
ASSIGN QT 
LBL SCAN 
T8 QT 
VAR SCAN 
SCRIPT GEN 
ASSIGN LBL P8P 
BRU M8P 
ACTIVE EQL EXIT 

C8MM8N STA XLATE 

SENSE QT 

LIGHT QT 

FX EXP XLATE 

SENSE LIGHT SPR8G LINK 

ACTIVE E8L EXIT 

EQUIVALENCE STA XLATE 

C8MM8N QT 

SYMB8L SCAN 

C9MM8N LIST 

ILLEGAL ALL8CATI9N FAIL 

EQUIV DATA LIST 

EQUIV LIST SEARCH 

ILLEGAL ALL8CATI8N FAIL 

C8MM9N LIST 

C8MMA 

Al 

INACTIVE E8L EXIT 

RETURN STA XLATE 
EQUIVALENCE QT 
C8PY EQUIV DATA 
EQUIV TEMP LIST 
L PAREN 

EQUIV SEG XLATE 
R PAREN 



CSA 
JAT 
CSA 
JAF 
RLS 

A#6 RLS 
SNE 
JAT 

A.47 ADR 
C8F 
JAT 
BRU 

♦EQUIV SEQ 

QSEGX EQU 



A4f8 



A49 



A50 



A5i 



A52 



A53 



jrs 

JAF 
JRS 

SUB 
STA 
BRU 
JRS 
JAT 
MC8 
JRS 
S98 
CSA 
JAT 
FET 
BRU 
MCO 
JRS 
S8B 
CSA 
JAT 
RSV 
FET 
FET 

ica 

JAF 



C9MMA 
A44 

CARRET 

A4<f 

QTPLS 

QDATLS 
QDATLS 
A46 

QDATLS 
QHDLS 
A47 

CUA8UT 
XLATE 
♦ 

QSCSR 

A52 

APINSC 

WQ,2 

W0*2 

A51 

QSCSR 

ILALFA 

QTPLS 

APINSC 

QTPLS 

C9MMA 

A49 

ZER8 

A53 

QTPLS 

APINSC 

QTPLS 

CQMMA 

A48 

QHDLS 

ZER8 

9NE 

QTPLS 

CLR2AE 



C8MMA 

Al 

CAR RETURN 

Al 

EQUIV TEMP LIST 

EQUIV DATA LIST 

EQUIV DATA LIST 

A2 

EQUIV DATA LIST 

EQUIV H8LD LIST 

A3 

CLEAN UP AND 9UTPUT 



EQUIV SCAN AND SEARCH 

A4 

APPENDED INTEGER SCAN 

WO 

wo 

A3 

EQUIV SCAN AND SEARCH 

ILLEGAL ALL8CATI8N FAIL 

EQUIV TEMP LIST 

APPENDED INTEGER SCAN 

EQUIV TEMP LIST 

CBMMA 

A2 

ZER8 

Al 

EQUIV TEMP LIST 

APPENDED INTEGER SCAN 

EQUIV TEMP LIST 

C9MMA 

A6 

EQUIV H9LD LIST 

ZER8 

8NE 

EQUIV TEMP LIST 

CLEAR TW8 AND EXIT 



MC9 QHDLS 

T9T QTPLS 

SUB W2#2 

STA W0j2 

M9N QHDLS 

SER C8LIST 

JAF A53 

SKR WRKB8T 

SKR* WRKB8T 

BRU A53 

BRU IIAL^A 
*EQUIV SCAN AND SEARCH 

QSCSR JRS SYMBSC 

SER QTPLS 

UAT ILALFA 

ADR QHDLS 

JRS QLSRCH 

JAF XTF 

BRU EXITRU 
*EQUIV LIST SEARCH 

QLSRCH RSV QTPLS 

A5* SER* W0i2 

JAT A56 

ADR QTPLS 

C8F* Wl,2 

JAT A54 

A55 ADR* W0>2 

C8F QTPLS 

JAT A55 

RLS QTPLS 

BRU CLR1EF 

A56 BNG TW8 

ADR Q9PTLS 

C8F* W2#2 

A57 ADR* U\,2 

C8F QTPLS 

JAT A57 

RLS QTPLS 

ADR* Wl,2 



EGUIV H8LD LIST 

EQUIV TEMP LIST 

W2 

WO 

EQUIV H8LD LIST 

C8MM9N LIST 

Al 

W9RK B8TT8M 

WORK B8TT8M 

Al 

ILLEGAL ALLQCATI8N FAIL 

SYMB8L SCAN 

EQUIV TEMP LIST 

ILLEGAL ALL8CATI0N FAIL 

EQUIV H8LD LIST 

EQUIV LIST SEARCH 

EXIT FALSE 

EXIT TRUE 

EQUIV TEMP LIST 

WO 

A3 

EQUIV TEMP LIST 

Wl 

Al 

WO 

EQUIV TEMP LIST 

A2 

EQUIV TEMP LIST 

CLEAR 8NE EXIT FALSE 

TW8 

EGUIV 8PUT LIST 

W2 

Wl 

EQUIV TEMP LIST 

A4 

EQUIV TEMP LIST 

Wl 



C8F 


Q8PTUS 


SWT 


Wl/2 


BRU 


CIR1ET 


♦APPENDED INTEGER SCAN 


APINSC FET 


ZER8 


JRS 


STDMEV 


CSA 


LPAREN 


LDA 


8NE 


STA 


CTLH 


UAF 


A58 


JRS 


1NSCAN 


S9L 


MAXASA 


JAT 


ILALFA 


CSF 


RPAREN 


A58 S8F 


FLFLAG 


IDA 


cTua 


JAF 


CURIAE 


ADO 


CTL2 


BRU 


CURIAE 


♦ C8FY EQUIV 


DATA 


CYEQDT LDA 


9NE 


STA 


CTC8PY 


BRU 


A60 


A59 CAX 




IDA 


0*2 


S8B 


QHDLS 


MIN 


CTC8PY 


A60 IDA 


CTC8PY 


ADD 


QVDTBS 


SKG 


QVDB8T 


BRU 


A59 


LDA 


QVDSTR 


SUB 


QVDTBS 


ADM 


QVHSTR 


ADM 


QVHT8P 


BRU 


EXIT 


♦RETURN STA 


XLATE 


RTRNSX FEX 


PAUSSX 


QSF 


RTURNQ 



EGUIV 8PUT LIST 
Wl 

CLEAR 9NE EXIT TRUE 

ZER8 

STANDARD M8QE EVAL 

L PAREN 

8NE 

CENTRAL 2 

Al 

INTEGER SCAN 

MAX ARRAY SIZE ALLOWED 

ILLEGAL ALL8CATI9N FAIL 

R PAREN 

FL FLAG 

CENTRAL 2 

CLEAR 8NE AND EXIT 

CENTRAL 2 

CLEAR 8NE AND EXIT 

8NE 

COUNT 8F C8PY 

A2 





EQUIV 

C8UNT 

CBUNT 

EQUIV 

EQUIV 

Al 

EQUIV 

EQUIV 

EQUIV 

EQUIV 

EXIT 



M8LD LIST 
QF C8PY 
8F COPY 
DATA BASE 
DATA B8TT8M 

DATA START 
DATA BASE 
HBLD START 
H8LD T8P 



PAUSE STA XLATE 
RETURN GT 





SKN 


SPTRIG 


SPRBG TRIGGER 




BUF 


ST8PSL 


STOP SPR8G LINK 




SKN 


SPTRIG 


SPR8G TRIGGER 




BRU 


JPE8LE 


JUMP E8L EXIT 




FET 


NAMESP 


NAME 8F SPR8G PNTR 




BAM 


9KFP8P 


8K FETCH P8P 




FET 


SPRGLB 


START 8F PR8G LBL 




BIF 


BRRM9P 


BRR M8P 




BRU 


JPE8LE 


JUMP E8L EXIT 


♦PAUSE 


STA XLATE 




PAUSSX 


FEX 


ST8PSX 


ST8P STA XLATE 




GSF 


PAUSEQ 


PAUSE QT 




BLF 


PAUSSL 


PAUSE SPR8G LINK 




TRY 


INSCAN 


INTEGER SCAN 




JAF 


A61 


Al 




FET 


CTL2 


CENTRAL 2 




BAF 


N8PM8P 


N8P M8P 




BRU 


ACE81E 


ACTIVE E8L EXIT 


A61 


FIL 


N8PINS 


N8P INST 




BRU 


ACE8UE 


ACTIVE E8L EXIT 


♦ ST8P 


STA XLATE 




ST8PSX 


FEX 


ILLSX 


ILLEGAL STATEMENT XLATE 




QSF 


ST8PQT 


ST8P QT 




TRY 


INSCAN 


INTEGER SCAN 




BIF 


ST8PSL 


ST8P SPR8G LINK 




BRU 


JPE8LE 


JUMP E8L EXIT 


♦INACTIVE E8L 


EXIT *- FINISH 


STATEMENT PRBCESSING BUT SUPPRESS 


SIAEBLX CSF 


CARET 


CAR RETURN 




BRU 


CUA8UT 


CLEAN UP AND 8UTPUT 


♦ACTIVE E8L EXIT 




$acesu 


E CSF 


CARET 


CAR RETURN 


♦ACTIVE EXIT 






•ACEXIT IDA 


MINUS1 


MINUS 8NE 




BRU 


JUPACX 


JUMP^ACTIVE EXIT 


♦JUMP I 


E8L EXIT 






$JPE9LE CSF 


CARET 


CAR RETURN 




IDA 


ZER8 


ZER8 


♦ JUMP», 


ACTIVE EXIT 




SJUPACX STA 


JPSTRG 


JUMP STA TRIGGER 



C8DE GEN 



MIN 

♦CLEAN UP A 

$CUA8UT SKN 

BRU 
$A62 JRS 
JAF 
BRU 
ENDFIX LDA 
STA 
LOA 
STA 
BRU 
♦ILLEGAL ST 
$ILLSX SNE 
JAT 
FEX 
JRS 
BRU 
♦ILLEGAL LI 
$ILLINX JRS 
♦©UTPUT DIA 
$SPD!AG FEX 
CSA 
JAT 
RSV 
RSV 
SETT 
A63 JRS 
JRS 
JAF 
RLS 
tK6* T8T 

JAF 
PRQ# 
SKR 
PRC 
BRU 
A65 RLS 
RLS 



ACTEST 
ND 9UTPUT 

BP2 
ENDFIX 
RELPRT 
A62 

SFINAL 
LINECT 
ILINCT 
INCHCT 
IICHCT 
SFINAL 

A XLATE 

FAILDL 
8PDJAG 
8PDIAG 
VARSCN 
ILSYFA 

NE XLATE 

SVLSDT 

GNOSTICS 

ENDSX 
ASTRSK 
FAIL 
ERLIST 
ERSTLS 
FTTY8N/A 
PRTALN 
PRERMK 
A63 

FAILDL 
ERLIST 
A65 
WO* 2 
WRKBOT 
CARET 
A6<* 

ERLIST 
ERSTLS 



ACTIVE STA TRIGGER 



RELEASE AND PRINT 

Al 

STA FINAL 

LINE CBUNT 

INITIAL LINE C8UNT 

INPUT CHAR C9UNT 

INIT INPUT CHAR C8UNT 

STA FINAL 

FAIL DATA LIST 
8UTPUT DIAGN8STICS 
8UTPJT DIAGN8STICS 
VAR SCAN 
ILLEGAL SYNTAX FAIL 

SAVE LIST DATA 

END STA XLATE 
ASTERISK 

FAIL 

ERR8R 8PUT LIST 

ERR8R ST8P LIST 

PRINT A LINE 

PRINT ERR8R MARKS 

Al 

FAIL DATA LIST 

ERR8R 8PUT LIST 

A2 

WO 

WORK B8TT8M 

CAR RETURN 

A3 

ERR8R 8PUT LIST 

ERR8R ST8P LIST 



SETF 


FTTY8N,A 


*STA FINAL 




SSFINAU JRS 


STACUP 


JRS 


RELPCH 


BRU 


B8DYSX 


*END STA XLATE 


$ENDSX FEX 


NQNCDF 


CSF 


ASTRSK 


$IBMEND MIN 


LASTST 


QSF 


ENDQT 


CSF 


CARET 


JRS 


RELPRT 


BRU 


FINC8P 


*N8 END CARD 


FINISH 


$N18NCDF LDA 


IICHCT 


STA 


INCHCT 


♦FINISH C3DE 


8PJT 


$FINC9P BUF 


ST8PSL 


JRS 


RELPCH 


BRU 


PRTSUM 


*STA INITIALIZE 


SSINIT LDA 


LINECT 


STA 


ILINCT 


A66 LDA 


INCHCT 


STA 


IICHCT 


STA 


RDSTCT 


SBRM 


NXINCH 


CSA 


CARET 


JAT 


A66 


♦COMMENT STA 


XLATE 


$C8MTSX CSA 


C 


JAF 


EXIT 


SKN 


BP2 


BRU 


A67 


JRS 


RELPRT 


BRU 


SINIT 


A67 LDA 


INCHCT 


STA 


RDSTCT 


SBRM 


NXiNCH 



STA CLEAN UP 
RELEASE AND PUNCH 
B8DY STA XLATE 

N6 END CARD FINISH 
ASTERISK 

LAST STA TRIGGER 
END QT 

CARRAIGE RETURN 
RELEASE AND PRINT 
FINISH C8DE 9PUT 

INITIAL INPUT CHAR CNT 
INPUT CHAR CNT 

ST8P SPR8G LINK 
RELEASE AND PUNCH 
PRINT SUMMARY 

LINE CNT 
INITIAL LINE CNT 
INPUT CHAR CNT 
INITIAL INPUT CHAR CNT 
READ ST8P CNT 
NEXT INPUT CHAR 
CAR RETURN 
Al 

C 
EXIT 

Al 

RELEASE AND PRINT 
STA INITIALIZE 
INPUT CHAR CNT 
READ ST8P CNT 
NEXT INPUT CHAR 





CSA 


CARET 




JAF 


A67 




MIN 


LINECT 




BRU 


SINIT 


*LBL 


FIELD XLATE 


SLBFUDX FET 


F9UR 




*1RS 


DGCVIN 




BRU 


A69 


A68 


SBRM 


NXINCH 


A.69 


sec 


DIGTFL 




•JAF 


A70 




urs 


CNV1DG 




BRU 


A71 


A70 


CSF 


SPACE 


A7i 


SKR 


W0#2 




BRU 


A68 




SBRM 


NXINCH 




CSA 


SPACE 




JAT 


A72 




CSF 


N9 


A72 


SKR 


WRKB8T 




LDA 


CTL2 




STA 


STLBPT 




SKG 


ZERO 




BRU 


A72A 




URS 


REGLBL 




IDA 


W0#2 




STA 


STLBPT 




ses 


W8RKLT 




BIF 


LBLL9P 




JRS 


PRPNTR 




IDA* 


ADRPT8 




SKA 


PDEFLM 




MRG 


MPYQLM 




MRG 


PDEFLM 




STA* 


A0RPT8 


• PASS 


STATEMENT LABEL 


A72A 


SKN 


FDBUG 




BRU 


EXIT 



CAR RETURN 
Al 

LINE CNT 

STA INITIALIZE 

F6UR 
DIGIT C8NV INITIAL 
A2 

NEXT INPUT CHAR 

DIGIT FLAG 

A3 

C9NV dNE DIGIT 

A5 

SPACE 

WO 

Al 

NEXT INPUT CHAR 

SPACE 

A4 

NO 

W9RK B8TT9M 

CENTRAL 2 

STA LBL PNTR 

INF9 SUPPRESSED 
REGISTER LBL 
WO 

STA LBL PNTR 
W8RK LIST 
LBL L9P 
PR9CESS PNTR 
ADDRESS POINTED T8 
PREVI8USLY DEF LBL MASK 
MULTIPLY DEF LBL MASK 
PREVI8USLY DEF LBL MASK 
ADDRESS P8INTED T8 
8N T8 RUN»TIME 

DEBUG INF8 SUPPRESSED 



FET 


CTL2 


$AF 


STLM9P 


BRU 


EXIT 


*STA CLEAN UP 




$STACUP FET 


STL3PT 


SKN 


JPSTRG 


BRU 


CLR1AE 


A73 SNE 


D9LST 


JAF 


CLR1AE 


LDA 


WO/2 


SKE* 


D9L8BM 


SRU 


CLR1AE 


SKR 


D8L6BM 


M9F 


D8LST 


MQF 


D8LST 


M8N 


C8DLST 


M8N 


C8DLST 


BRU 


A73 


♦RELEASE AND 


PUNCH 


$RELPCH RLS 


SAVELS 


RLS 


FAILDL 


RLS 


PLEXLS 


RLS 


W8RKLT 


RLS 


SCRLST 


BRU 


PCHC9D 


♦RELEASE AND 


PRINT 


SRELPRT RLS 


FAILDL 


♦PRINT A LINE 




SPRTALN LDA 


IICHCT 


STA 


INCHCT 


A74 SBRM 


NXINCH 


SKA 


CARRFG 


bru 


A74 


LDA 


9NES 


STA 


NSTTRG 


STA 


EQLTRG 


FET 


ZER8 


A76 LDA 


JNCHCT 


BRU 


A76A 



INTEGER STATEMENT LABEL 

STATEMENT LABEL M9P 
EXIT 

STA LBL PNTR 
JUMP STA TRIGGER 
CLEAR 8NE AND EXIT 
D9 L89PS 8PEN LIST 
CLEAR 8NE AND EXIT 
WO 

D8 L98PS 8PEN B8TT9M 
CLEAR 9NE AND EXIT 
P8 L89PS 9PEN 88TT9M 
D8 L89PS 9PEN LIST 
D8 L99PS 8PEN LIST 
C9DE LIST 
C8DE LIST 
Al 

SAVE LIST 
FAIL DATA LIST 
PLEX LIST 
W9RK LIST 
SCRIPT LIST 
PUNCH C8DE 

FAIL DATA LIST 

INITIAL INPUT CHAR CNT 
INPUT CHAR CNT 
NEXT INPUT CHAR 
CAR RETURN FLAG 



END 8F STATEMENT TRIGGER 
END 8F LINE TRIGGER 

INPUT CHAR CNT 



A75 



SBRM 
SKE 



A75A 



A75B 



A75C 



A76A 



A77 



*PRINT 
$PRERMK 



IDA 
SKG 
MIN 
LDA 
SKG 
8RU 
LD3 
BRU 
LDA 
ADD 
IDS 
STB 
STA 
STA 
STA 
PRC 
SER 
JAF 
BNG 
MSN 
M8N 
FET 
MIN 
IDA 
SKE 
BRU 
LDA 
STA 
MIN 
LDA 
STA 
SKN 
BRU 
BRU 
ERR8R 
SNE 



NXACCH 
CARET 

A 75 A 

INCHCT 

E8LTRG 

NSTTRG 

E8LTRG 

8NES 

A75B 

CARET 

A75C 

LACHCT 

8NE 

FRSTCH 

CRNTCH 

INCHCT 

RDSTCT 

CTL2 

CRNTCH 

FAILDL 

A77 

8NE 

ERLIST 

ERSTLS 

MJNUS1 

WO* 2 
CRNTCH 
CARET 
A75 
INCHCT 
IICHCT 
ILINCT 
ILINCT 
UNECT 
NSTTRG 
CLR1ET 
CLRlEF 
MARKS 

ERSTLS 



NEXT ACTIVE CHAR 
CAR RETURN 



INPUT CHAR CNT 

END 8F LN TRG(ADDR 8F N8 f 

8F STATMENT TRIGGER 

8F LINE TRIGGER 

9F LINE# 

tN8 

RETURN *YES 



END 
END 
END 

CAR 



1 CHAR RET) 



LAST ACTIVE CHAR CNT 

FIRST CHAR READ BY NXACCH 

CURRENT CHAR 

INPUT CHAR CNT 

READ ST6P CNT 

CENTRAL 2 

CURRENT CHAR 

FAIL DATA LIST 



ERROR OUTPUT LIST 
ERR8R STOP LIST 
MINUS 8NE 

CURRENT CHAR 
CAR RETURN 

INPUT CHAR CNT 
INITIAL INPUT CHAR CNT 
INITIAL LINE CNT 
INITIAL LINE CNT 
LINE CNT 

END 8F STATEMENT TRIGGER 
CLEAR 8NE EXIT TRUE 
CLEAR 8NE EXIT FALSE 

ERR8R ST8P LIST 





JAF 


EXIT 


A80 


T8T 


ERSTUS 




JAT 


A82 




PRC 


CARET 




BRU 


EXIT 


A81 


PRC 


SPACE 


A82 


SKR 


W0#2 




BRU 


A81 




PRC 


ERMRK 




SKR 


WRKB9T 




BRU 


A80 


♦PRINT 


SUMMARY 




$PRTSJM SETT 


FTTY8N # A 




SNE 


D9L.ST 




JAF 


A84 




PRQ 


D8NEQT 


A83 


M8F 


D8LST 




JAF 


A84 




SKR 


D8U8BM 




SKR 


D8U8BM 




8NG 


ZER8 




ETR 


ABSATM 




STA 


WO* 2 




JRS 


PR5DEC 




JRS 


TSE8LP 




BRU 


A83 


A84 


M8F 


LBLLST 




JAF 


A85 




SKA 


PDEFLM 




SKA 


MPYDLM 




FET 


W0#2 




SKR 


WRKB8T 




BRU 


A84 


A85 


SNE 


W9RKL.T 




JAF 


8PCNST 




PRQ 


UBIERQ 


A86 


JRS 


PR5DEC 




JRS 


TSE81P 




SNE 


W8RKLT 



EXIT 

ERR8R ST8P LIST 

Al 

CAR RETURN 

EXIT 

SPACE 

WO 

A2 

ERR8R MARK 

W8RK B8TT8M 

A3 



D8 
A2 
D8 
D9 
A2 
D8 
D8 



L88PS 8PEN LIST 

NEST ERR8RS QT 
L88PS 8PEN LIST 



SIGN AND TAG MASK 



PRINT 



L88PS 8PEN B8TT8M 
L88PS 8PEN B8TT8M 

ZER8 

ALL BUT 

WO 

PRINT 5 DEC 

TEST F8R E8L 

Al 

LBL LIST 

A3 

PREVI8USLY DEF LBL MASK 

MULTIPLY DEF LBL MASK 

WO 

W8RK B8TT8M 

A2 

W6RK LIST 

8UTPUT C8NSTANTS 

LA8LING ERR8RS QT 

PRINT 5 DEC 

TEST F8R E8L PRINT 

W8RK LIST 



JAT 


A86 


A4 


*8UTPUT CONSTANTS 




$8PCNST CNT 


FXCUST 


FX C8NST UST 


CNT 


FICLST 


FL C8NST LIST 


ADD 


Wl*2 


Wl 


S8B 


W8RKUT 


W8RK LIST 


BAF 


ABSL8P 


ABS L8P 


ADR 


C8DUST 


C8DE LIST 


CAR 


FXCLST 


FX C8NST LIST 


ADR 


C8DLST 


C8DE LIST 


CAR 


FLCUST 


FL C8NST LIST 


JRS 


PCHC8D 


PUNCH C8DE 


♦ALLOCATE MEM8RY 




SALCMEM FET 


ZER8 


ZER8 


IDA 


GUSB8T 


GL8BAL SPR8G B8TT8M 


SUB 


GLSBAS 


GL8BAL SPR8G BASE 


RSH 


1 


1 


S9B 


W9RKLT 


W8RK LIST 


ADD 


DMYCNT 


DMY CNT 


S8B 


W8RKLT 


W8RK LIST 


ADD 


MXTPCT 


MAX TEMP CNT 


S8B 


W8RKLT 


W8RK LIST 


STA 


PR8GBK 


PR8GRAM BREAK 


CLA 






STA 


C8MBRK 


C8MM8N BREAK 


$C8MALC SETF 


FTTY8N/A 




IDA 


*3 




SKN 


FMAP 




STA 


C8UTF 




RSV 


UBULST 


(TEMP ST8RAGE F8R DEBUG 


♦C8MM8N ALL8CATI8N 




3NE 


C8UIST 


C8MM8N LIST 


JAF 


PR8GAL 


PR8GRAM ALL8CATI8N 


PRQ 


CMALQT 


C8MM8N ALL8CATI8N QT 


A87 ice 


C8LIST 


C8MM8N LIST 


JAF 


C8M8VU 


C8MM8N OVERLAY 


JRS 


CMEMRQ 


CALC MEMBRY REQUIRED 



INF8) 





UDA 


WQ#2 




ADM 


C0MBRK 




IDA 


2ER8 




SUB 


C8MBRK 




STA 


WQ,2 


A88 


ADR 


QHDLS 




C6F 


QDATLS 




JAF 


A89 




SER 


QHDLS 




JAF 


ASS 




BNG 


TW8 




FET 


Wl#2 




ADR 


MX8VNC 




JRS 


PR8CQG 


A89 


JRS 


SETPUB 


A9Q 


ADR 


QDATLS 




C8F 


QHDLS 




JAT 


A90 




BRU 


A87 


*C8MM8N 8VERLAY 


$ceM©vu FET 


8NE 




UDA 


ZER8 




SUB 


C8MBRK 




S83 


W9RKLT 




JRS 


PR8Q8P 


#PR8GRAM ALL8CATI8N 


$PR8GAL PRQ 


PR8GQT 


A91 


SNE 


QDATLS 




JAF 


A94 




RSV 


QHDLS 




FET 


SIGN 


A92 


uce 


QDATLS 




JAF 


A93 




MC3 


QHDLS 




T8T 


QDATLS 




M8NJ 


QHDLS 




SKG 


W0*2 




BRU 


A92 




STA 


WO/2 



wo 

C8MM8N BREAK 

ZER8 

C8MM0N BREAK 

WO 

EQUIV H8LD LIST 

EQUIV DATA LIST 

A3 

EGUIV H8LD LIST 

A2 

TW0 

Wl 

MAX EQUIV IN C8MM6N 

PR8CESS EQUIV GR8UP 

SET AND PUBLISH 

EQUIV DATA LIST 

EQUIV H8LD LIST 

A# 

Al 

8NE 
ZER8 

C8MM8N BREAK 

WQRK LIST 

PR8CESS EQUIV OUTPUT 

PROGRAM ALL8CATI8N QT 
EQUIV DATA LIST 
A4 
EQUIV H8LD LIST 

EQUIV DATA LIST 
A2 

EQUIV H8LD LIST 
EQUIV DATA LIST 
EQUIV H8LD LIST 
WO 
Al 
WO 





BRU 


A92 


Al 


A93 


FET 


PR9GBK 


PR6GRAM BREAK 




ADR 


PR8GBK 


PR9GRAM BREAK 




JRS 


PR8CQG 


PR9CESS EQUIV GR8UP 




RLS 


QDATIS 


EQUIV DATA LIST 




BRU 


A91 


A3 


A94 


FET 


P8SFSC 


P9S FULL SCALE 




FET 


NEGFS 


NEG FULL SCALE 




JRS 


PR8Q8P 


PR8CESS EQUIV 8UTPUT 




RtS 


Q8PTLS 


EQUIV 8PUT LIST 




FIU 


NMARKR 


END MARKER 


•ARRAY 


ALL8CATI8N 




ARAYAL 


EQU 


* 




A95 


UCF 


AYYLST 


ARRAY LIST 




JAF 


A96 


A? 




JRS 


PUBALC 


PUBLISH AND ALL8CATE 




FJL 


CTL2 


CENTRAL 2 


♦ SAVE 


ARRAY 


INF9 F6R DEBUG 






FET 


8NE 




A95A 


MIN 


ARYT8P 






IDA* 


ARYT9P 






SKN 


VARBAS 






S8B 


IBILST 






SKR» 


WRKB6T 






8RU 


A95A 






IDA 


VARBAS 






SKN 


VARBAS 






S83 


LBLLST 






IDA 


THREE 






ADM 


ARYT9P 






SKR 


WRKB6T 






BRU 


A95 




A96 


FIU 


NMARKR 


END MARKER 


•SCALAR ALL8CATI9N 




SCALAR 


FET 


PR9GBK 


PROGRAM BREAK 




ADR 


FXSLST 


FX SCALAR LIST 




JRS 


PR9SCA 


PR8CESS SCALARS 




FIL 


NMARKR 


END MARKER 




FET 


PR9GBK 


PR8GRAM BREAK 





ADR 


FLSLST 




JRS 


PR6SCA 




FIL 


NMARKR 




ADR 


C8DLST 




CAR 


W8RKLT 




Fll 


PR8GBK 




FIL 


C9MBRK 




URS 


PCHcao 


•PR6CESS LINKA 


GES 


PR6CUK 


SNE 


GLSLST 




JAF 


A97A 




PRQ 


SBREQT 


A97 


Lee 


GLSLST 




JAF 


A97A 




PRC 


SPACE 




PRC 


SPACE 




PRQ 


SYMCEN 




JRS 


TSE6LP 




FIL 


CTL1 




FIL 


CTL2 




BRU 


A97 



FL SCALAR LIST 
PROCESS SCALARS 

END MARKER 
C8DE LIST 
WBRK LIST 
PROGRAM BREAK 
C9MM8N BREAK 
PUNCH C8DE 

GL6BAL SPR9G LIST 

SUBPR8GRAMS REQUIRED QT 
GL6BAL SPR8G LIST 

SPACE 
SPACE 

SYMB8LIC CENTRAL 
TEST F8R E6L PRINT 
CENTRAL 1 
CENTRAL 2 
Al 



♦PASS VARIABLE NAMES T8 RUN-TIME 
A97A 



A97B 



SKN 


FD3UG 


BRU 


A97B 


CNT 


LBLLST 


BAF 


BLKL8P 


ADR 


C8DLST 


CAR 


LBLLST 


BRU 


TRMCPL 


FIL 


NMARKR 



♦TERMINATE COMPILE 
$TRMCPL JRS PCHC8D 
SKN CKSMCT 
JRS PCHFIN 



PUNCH C9DE 
CHECK SUM CNT 
PUNCH FINISH 



IDA 


PRGEND 


WI8 


9UTFLE 


UDAT'""" 


-j— -• - 


STA 


C8UTF 


PRC 


CARET 


PRC 


CARET 


CLA 




STA 


LINETP 


IDA 


INSTCT 


SKG 


INCHCT 


BRU 


A98 


SKN 


LASTST 


BRU 


A98A 


8RU 


A98 


SKN 


FE8F 


BRU 


A98A 


BRU 


A98 


A98A SKN 


BP2 


BRU 


STRCMP 


PRQ 


10CRQT 


BRU 


STRCMP 


A98 IDA 


E8FWRD 


WIO 


9UTFLE 


WI8 


9UTFLE 


BRS 


17 


IDA 


ONES 


STA 


INFLE 


STA 


9UTFLE 


Tea 


BELL 


BRU 

44 


CS 


♦PR8CESS EQUIV 


GR9UP 


PR8CQG EQU 


# 


A99 UC9 


QHDLS 


JAF 


AlOO 


T9T 


GHDLS 


JR3 


CMEMRQ 


IDA 


*I4j2 


ADD 


W5/2 



PROGRAM END W8RD 



CMMD 8UTPUT FILE 



LINES THIS PAGE 
INPUT START C8UNTER 
INPUT CHAR COUNTER 
TERMINATE C8MPILE 
*1*LAST STATEMENT 9F FILE 



E8F READ 
•IsLlSTING DESIRED 

START C8MPL 

TEN CARRIAGE RETURNS 

END 8F FILE W8RD 



C8MMAND START 



EGUIV H8LD LIST 

A2 

EQUIV H8LD LIST 

CALC MEMQRY REQUIRED 

W4 

W5 





SUB 


wa#2 




STA 


W2>2 




ADM 


W0*2 




IDA* 


W3*2 




SKG 


WO/ 2 




IDA 


W0#2 




STA» 


W3/2 




SWT 


Wl,2 




M6N 


Q9PTIS 




MSN 


Q8PTLS 




M8N 


Q9PTLS 




BRU 


A99 


A100 


RLS 


QHDLS 




BRU 


CLR3AE 


♦PROCESS EQUIV 


OUTPUT 


PR6QBP 


EQU 


# 


AlOl 


T8T 


QePTIS 




JAF 


CUR2AE 




LCO 


Q9PTUS 




UPA 


W2#2 




SKG 


CTL1 




BRU 


A102 




LDA 


Wl/2 




SKG 


CTU2 




BRU 


A103 


a*02 


PRC 


SPACE 




PRC 


SPACE 




PRO 


ERR8RQ 




JRS 


16DCTL 




JRS 


PRTSYM 




BRU 


AlOl 


A103 


FET 


CTL2 




JRS 


SETPUB 




BRU 


AlOl 


*SET ANO'PUBLISH 


SETPUB 


FET 


W1j2 




JRS 


USPCTL 




FET 


W0#2 




JRS 


PUBLSH 



W2 

W2 

WO 

W3 

WO 

WO 

W3 

Wl 

EQU 

EQU 

EQU 

Al 

EQU 

CLE 



IV 6PUT LIST 

IV 0PUT LIST 

IV 8PUT LIST 

IV H&LD LIST 

AR THREE AND EXIT 



EQUIV 8PUT LIST 

CLEAR TW9 AND EXIT 

EQUIV 9PUT LIST 

W2 

CENTRAL 1 

A2 

Wl . 

CENTRAL 2 

A3 

SPACE 

SPACE 

ERRQR QT 

L9AD CENTRAL 

PRINT SYMBOL 

Al 

CENTRAL 2 

SET AND PUBLISH 

Al 

Wl 

L8AD CENTRAL 

WO 

PUBLISH 



A104 



*PUBLJ 
PUBALC 



*PR9CE 
PRdSCA 
A105 



A106 
♦ PASS 



JAF 
JRS 
JRS 
IDA 
UDB 
STP* 

bru 

SH AND 

FET 

JRS 

JAF 

JRS 

LDA 

XMA 

ADM 

STA 

JRS 

IDA 

STA 

BRU 
SS SCAL 

EQU 

UCF# 

JAF 

JRS 

JAT 

LDX 

IDA 

SUB 

RSH 

S8B 

FIL 

LC9» 
SCALER 

SKN 

BRU 

BRU 

IDA 

S88 



CIR2AE 
CFR8FS 
PRPNTR 
ALLD9L 

ADRPT9 

CLR1AE 

ALU9CATE 

PR8GBK 
PUBLSH 
XTF 

CMEMRQ 
WQ#2 
PR9GBK 
PR8GBK 
W0*2 
CFR8FS 
Wl#2 
CTU2 
CIR2ET 
ARS 
* 

W0#2 
CLR1AE 
PUBALC 
A106 
WO/2 
T9P/2 
BASE/2 
0/2 

C8DLST 
CTL2 
WO/ 2 
INF9 8N T8 
VARBAS 
* + 2 
A105 
CTL1 
LBLLST 



RUNTIME 



CLEAR TW8 AND EXIT 
C8RRECT F8R 8FFSET 
PR8CESS PNTR 
ALL D8LLARS 

wo 

ADDRESS P8INTED T8 
CLEAR 8NE AND EXIT 



RR9GRAM 


BREAK 


PUBLISH 




EXIT FALSE 


CALC MEM8RY REQUIRED 


w 




PR9GRAM 


BREAK 


PR8GRAM 


BREAK 


WO 




C8RRECT 


F8R 8FFSET 


wi 




CENTRAL 


2 



CLEAR TW8 EXIT TRUE 



WO 

CLEAR 8NE AND EXIT 

PUBLISH AND ALL8CATE 

A2 

WO 

T8P 

BASE 



C8DE LIST 

CENTRAL 2 

WO 



DUMMY SYMBOL* SKIP 



IDA 


CTL2 




S9B 


LBULST 




IDA 


VARBAS 


VARIABLE BASE ADDRESS 


S98 


UBULST 




BRU 


A105 


Al 


♦CORRECT F9R 


8FFSET 




CFR9FS SWT 


Wli2 


wi 


S9T 


AYIDFG 


ARRAY ID FLAG 


JAF 


EXIT 


EXIT 


FET 


W0#2 


wo 


S9F 


FUFLAG 


FL FLAG 


3NG 


Twe 


TW9 


JAF 


A107 


Al 


ADM 


WO/2 


WO 


A107 IDA 


W2/2 


W2 


ETR 


SJGNBT 


SIGN BIT 


XMA 


W2#2 


W2 


SUB 


W0*2 


wo 


ETR 


ADRMSK 


ADR MASK 


ADM 


W2/2 


W2 


BRU 


CURIAE 


CLEAR 9NE AND EXIT 


*CAUC MEM9RY 


REQUIRED 




CMEMRQ JRS 


IDCLAS 


ID CLASSIFY 


JAF 


A108 


Al 


S9T 


AYIDFG 


ARRAY ID FLAG 


JAT 


AUO 


A3 


39F 


SCAJDF 


SCALAR ID FLAG 


JAT 


A109 


A2 


MC9 


ERSYLS 


ERR9R SYMB6L LIST 


FET 


ZER9 


ZER9 


BRU 


EXIT 


EXIT 


A108 JRS 


RGSCID 


REGISTER SCALAR ID 


A109 S9F 


FLFLAG 


FL FLAG 


FET 


9NE 


9NE 


BRU 


aiu 


A4 


AllO FET 


W0#2 


wo 


S9F 


FLFLAG 


FL FLAG 


BNG 


THREE 


THREE 


AUl JAF 


EXIT 


EXIT 





ADM 


WO j 2 




BRU 


EXIT 


♦PUBLISH 




PUBLSH 


IDA 


CTll 




SKE 


ALLD9L 




BRU 


AHE 




BRU 


CLR1EF 


A112 


PRC 


SPACE 




PRC 


SPACE 




SER 


GDIIST 




JAT 


A1U 




SER 


ERSYLS 




JAF 


AH6 


A113 


SETT 


FTTY8N#A 




PRQ 


ERR9RQ 




BRU 


A115 


A1U 


PRQ 


PYQT 


A115 


JRS 


PRTSYM 




LDA 


**1 




STA 


VARBAS 




SETF 


FTTYQNjA 




IDA 


»2 




SKN 


FMAP 




STA 


C8UTF 




CIA 






STA 


CTL2 




BRU 


CUR2EF 


AJ16 


FET 


W0#2 




STA 


VARBAS 




ISM 


9 




STA 


WO/ 2 




FET 


FIVE 




JRS 


P8CTAL 




JRS 


PRTSYM 




BRU 


CLR1ET 


♦PRINT 


SYMBOL 




PRTSYM 


PRC 


SPACE 




PRQ 


SYMCEN 


PRTSY7 


JRS 


TSE8LP 



wo 




EXIT 




CENTRAL 1 


ALL D9LLARS 


Al 




CLEAR 


9NE EXIT FA 


SPACE 




SPACE 




GLOBAL DMY LIST 


Aif 




ERROR 


SYMBOL LIST 


A2 




ERROR 


QT 


A5 




DUMMY 


QT 


PRINT 


SYMBOL 



CENTRAL 2 
CLEAR TW8 
WO 
VARIABLE BASE 
11 

wo 

FIVE 

PRINT 
PRINT 
CLEAR 



EXIT FALSE 



8CTAL 
SYMBOL 
9NE EXIT 



TRUE 



SPACE 
SYMBOLIC 

TEST F9R 



CENTRAL 
EOL PRINT 



BRU 


EXIT 


EXIT 


♦ TEST F8R E8L 


PRINT 




TSE8LP IDA 


SIXTY 


SIXTY 


SKG 


CHTSLN 


CHARS THIS LINE 


PRC 


CARET 


CAR RETURN 


BRU 


EXIT 


EXIT 


♦ FX EXP XLATE 






$FXPXl FET 


ZER8 


ZER8 


M8N 


M8DLST 


M8DE LIST 


JRS 


XPMDX 


EXP BY M8DE XLATE 


♦ M8DE RELEASE 






$M8DREL SKR 


M8DB9T 


M8DE B8TT8M 


BRU 


EXIT 


EXIT 


♦ EXP REMEMBER 


M8DE XLATE 




SEXPXIT JRS 


XPSCAN 


EXP SCAN 


♦SET M6DE THEN 


i GEN 




$SETMTG JRS 


M8DSET 


M8DE SET 


BRU 


SCAEGE 


SCRIPT AND EXP GEN 


♦ EXP BY M9DE XLATE 




$XPMDX JRS 


XPSCAN 


EXP SCAN 


♦SCRIPT AND EXP GEN 




$SCAEGE JRS 


SCRGEN 


SCRIPT GEN 


BRU 


XP6YMG 


EXP BY M8DE GEN 


END 







ftCl 



IOENT 1«\1 COMPILER/ PART ft 



BAM 


8PD 


lOOOOOOOB^ 


»1; 


>i 


CSF 


8PQ 


101000QOB; 


fit 


»1 


CSA 


QPD 


10200000B; 


*li 


>1 


JAT 


8PD 


10300000B; 


*1* 


»1 


JAF 


8PQ 


lOftOOOOOB; 


*\i 


rl 


TRY 


OPD 


105000008^ 


*lt 


il 


QSF 


8Pp 


10600000Bj 


tit 


► 1 


STD 


8PD 


107000008^ 


» i j 


► 1 


FET 


8PD 


IIOOOOOOBj 


»ii 


'1 


SWT 


8PD 


HIOOOOOBj 


rl; 


tX 


JRS 


QPD 


112000008; 


»1; 


fX 


BIF 


8PD 


113000008; 


»1; 


*x 


mcs 


8PD 


UftOOOOOBj 


»i; 


*x 


S8L 


8PD 


115000008; 


»i< 


ll 


S8F 


8PD 


11600000Bi 


9ii 


>1 


RSV 


QPD 


11700000B; 


fit 


>1 


CNT 


8PD 


1200Q000B, 


iL 


ri 


RLS 


8PD 


12100000B; 


tXt 


rl 


T8T 


8PQ 


12200000B; 


*li 


»1 


FJl 


8PD 


1230000QB; 


>1; 


tX 


M8N 


8PD 


12400000B; 


»1j 


*x 


LDP 


8PD 


12500000B; 


»Ij 


tX 


BLF 


8PD 


12600000B; 


>1) 


fX 


SAL 


8PD 


12700000B; 


>Xt 


>i 


PUL 


8PD 


1300Q000B; 


rXi 


tX 


BNG 


8PD 


131000008; 


>1; 


>x 


BAF 


8PD 


13200000B; 


>1; 


»1 


CAR 


8PD 


13300000B; 


tit 


fX 


PLe 


8PD 


13*000008; 


>1; 


fX 


CAC 


8PD 


13500OQ0B; 


'1; 


*X 


CIC 


8PD 


13600000B; 


>1; 


tX 


FJC 


8PD 


137000008; 


»1j 


>x 


FAC 


QPD 


IftOOOOOOB; 


• I 


tX 


B8P 


8PD 


IftlOOOOOB; 


>1; 


• 1 



M8F 


epp 


14200000B/1/1 


SNE 


8PD 


14300000B/1/1 


SER 


8PD 


144000008/1/1 


LCF 


8PD 


14500000B/1/1 


FIP 


epo 


146000C0B/1/1 


ADR 


spd 


14700000B/1/1 


E6S 


dPD 


15000000B/1/1 


S8B 


8PD 


15100000B/1/1 


S8T 


epo 


152000008/ 1/1 


SDP 


8PQ 


15300000B/1/1 


ADP 


ePD 


154000008/1/1 


REC 


epp 


155000008/ 1/1 


C8F 


epp 


15600000B/1/1 


ice 


8PD 


157000008/1/1 


PRC 


8PD 


16000000B/1/1 


PRQ 


epp 


16100000B/1/1 


sec 


8PD 


16200000B/1/1 


BJM 


SPD 


16300000B/1/1 


FEX 
* 


8PD 


164000006/ 1/1 


* 
8EQ 


MACR8 


P BRU IF EQUAU SKE DC 1) J BRU * + 2; BRU D<2)| 


BNE 


MACR9 


D BRU IF N8T EQUAL; SKE D(l); BRU D(2); ENDM 


M8VE 


MACR8 


D 




IF 


'DU^Mi'O' 2ER8 




CLfDO) 






ELSF 


1 




LDtDO) 


D(l) 




ENDF 






ST#D{3) 


0(2} 


11 


ENDM 




STZ 


MACR6 


A ST8RE ZERO; CLA i STA A(i) ; ENDM 


*SPR8G 


ARG SEQ 


SCAN 


$SPASQS RSV 


SPARGL SPR8G ARGUMENT LIST 


A117 


TRY 


UNSCAS UNSCRIPTED ARRAY SCAN 




JAT 


A118 A2 




JRS 


XPSCAN EXP SCAN 



ENDM 



AU8 


MQN 


SPARGU 




CSA 


C8MMA 




JAT 


A117 




BRU 


EXJT 


♦EXP SCAN 




$XPSCAN RSV 


SUMLST 




RSV 


PR6DLS 




JRS 


MINUFS 




JAT 


AH9 




CSA 


PLUS 




JRS 


FACTSC 


A119 


JRS 


PLUSFS 




JAT 


A 120 




JRS 


MINUFS 




JAF 


A122 


A120 


SWT 


Wl#2 




M6N 


SUMLST 


A12X 


M9N 


SUMLST 




JRS 


PLUSFS 




JAT 


A121 




JRS 


MINUFS 




JAT 


A121 




Pie 


SUMTPX 




CIC 


SUMLST 


A122 


RLS 


SUMLST 




RLS 


PR6DLS 




BRU 


EXIT 


♦ PLUS 


FACT8R 


SCAN 


$PIUSFS CSA 


PLUS 




JAF 


XTF 




JRS 


FACTSC 




BRU 


EXITRU 


♦MINUS 


FACT6R 


SCAN 


$MINUFS CSA 


MJNUS 




JAF 


XTF 




JRS 


FACTSC 




S8F 


ADDRFG 




JAT 


A123 




FIC 


MINNAP 



SPR6G ARGUMENT LIST 

C8MMA 

Al 

EXIT 

SUM LIST 
PR8D LIST 
MINUS FACT8R SCAN 
Ai 

PLUS 

FACTOR SCAN 
PLUS FACTOR SCAN 
A2 

MINUS FACT8R SCAN 
Ai+ 

Wl 

SUM LIST 

SUM LIST 

PLUS FACT6R SCAN 

A3 

MJNUS FACT8R SCAN 

A3 

SUM TERM PLEX 

SUM LIST 

SUM LIST 

PR6D LIST 

EXIT 

PLUS 
EXIT FALSE 
FACT8R SCAN 
EXIT TRUE 

MINUS 
EXIT FALSE 
FACT8R SCAN 
ADDRESSABLE FLAG 
Al 
MINUS NSNADDRESSABLE PLEX 





bru 


EXITRU 


A123 


FIC 


MINJAP 




BRU 


EXITRU 


♦FACT8R SCAN 




$FACTSC JRS 


ELETSC 


A124 


CSA 


ASTRSK 




JAF 


A128 




CSA 


ASTRSK 




JAF 


A125 




JRS 


ELETSC 




FJP 


EXPTPX 




BRU 


A124 


A125 


M8N 


PR9DIS 




JRS 


ELETSC 


A126 


CSA 


ASTRSK 




JAF 


A127 




CSA 


ASTRSK 




JAF 


A125 




JRS 


ELETSC 




FIR 


EXPTPX 




BRU 


A126 


A127 


M8N 


PR8DLS 




Pie 


PR0DTP 




CIC 


PR8DLS 


A128 


V#b A 


VRGULE 




JAF 


EXIT 




JRS 


ELETSC 


A129 


CSA 


ASTRSK 




JAF 


A131 




CSA 


ASTRSK 




JAF 


A130 




JRS 


ELETSC 




FJP 


EXPTPX 




BRU 


A129 


A130 


FIP 


DIVTPX 




BRU 


A*25 


A13i 


FIR 


DIVTPX 




BRU 


A124 


*VAR 


SCAN 





EXIT TRUE 

MINUS ADDRESSABLE 

EXIT TRUE 

ELEMENT SCAN 
ASTERISK 
A5 

ASTERISK 
A2 

ELEMENT SCAN 
EXP8N TERM PLEX 
Al 

PR6D LIST 
ELEMENT SCAN 
ASTERISK 

ASTERISK 
A2 

ELEMENT SCAN 

EXP8N TERM PLEX 

A3 

PR8D LIST 

PR8D TERM PLEX 

PR8D LIST 

VIRGULE 

EXIT 

ELEMENT SCAN 

ASTERISK 

A8 

ASTERISK 

A7 

ELEMENT SCAN 

EXP8N TERM PLEX 

A6 

DIV TERM PLEX 

A2 

DIV TERM PLEX 

Al 



PLEX 



$VARSCN JRS 


IDSCAN 


JAF 


RGSC1D 


S8F 


SCAJOF 


JAT 


EXIT 


S8T 


AYIDFG 


JAT 


AYSCAN 


BRU 


INCNFA 


♦ELEMENT SCAN 




$ELETSC S8C 


LETRFG 


JAT 


A13E 


CSA 


LPAREN 


JAF 


CSTSCN 


JRS 


XPSCAN 


CSF 


RPAREN 


BRU 


EXIT 


A132 JRS 


IDSCAN 


JAT 


A133 


CSA 


LPAREN 


JAF 


RGSCID 


B8P 


GLSLST 


JRS 


STDMEV 


MC9 


GLSLST 


SER 


GOLIST 


JAT 


INCNFA 


BRU 


FCTSC 


Ai33 S8F 


SCAIDF 


JAT 


EXIT 


S9T 


AYIDFG 


JAT 


AYSCAN 


CSF 


LPAREN 


♦FUNCTJ8N SCAN 




$FCTSC JRS 


SPASQS 


CSF 


RPAREN 


PL9 


SPAGPX 


CAC 


SPARGL 


RLS 


SPARGL 


FIC 


FCTTPX 


BRU 


EXIT 


♦ARRAY SCAN 





ID SCAN 
REGISTER SCALAR ID 
SCALAR ID FLAG 
EXI T 

ARRAY ID FLAG 
ARRAY SCAN 
ID C8NFLICT FAIL 

LETTER FLAG 
Al 

L PAREN 
C8NST SCAN 
EXP SCAN 
R PAREN 
EXIT 
ID SCAN 
A3 

L PAREN 

REGISTER SCALAR ID 
GLOBAL SPR8G LIST 
STANDARD M0DE EVAL 
GL8BAL SPR0G LIST 
GL6BAL DMY LIST 
ID C8NFLICT FAIL 
FUNCTI9N SCAN 
SCALAR ID FLAG 
EXIT 

ARRAY ID FLAG 
ARRAY SCAN 
L PAREN 

SPR8G ARG SEQ SCAN 
R PAREN 

SPR8G ARG GR8UP PLEX 
SPR8G ARGUMENT LIST 
SPR8G ARGUMENT 1, 1ST 
FUNCTI8N TERM PLEX 
EXIT 



$AYSCAN CSA 

JAT 

8RU 
AX3k RSV 

FET 

BNG 

PUL 
AJ35 RSV 
A136 JRS 

M8N 

CSA 

JAT 

CSF 

M8F 

JRS 
A137 SNE 

JAF 

M8F 

JAF 

FIC 

M8F 

JRS 

FIC 

8RU 
A138 SNE 

JAT 

RLS 

RLS 

S8T 

JAT 

S8F 

JAT 
A138A M9N 

JRS 

FET 

M8N 
AJ39 FIC 

BRU 
♦SCALAR 10 SCA 



LPAREN 
A134 
NU8FSF 
DIMLST 
WQ#E 
F8UR 
DIMLST 
SCREXL 
XPSCAN 
SCREXL 
C8MMA 
A136 
RPAREN 
SCREXL 
GRTEFX 
SCREXL 
A138 
DIMLST 
NU8FSF 
MPYPLX 
SCREXL 
GRTEFX 
ADDPLX 
A137 
DIMLST 
NU8FSF 
SCREXL 
DIMLST 
MJNJSF 
A138A 
ADDRFG 

AX 39 

SCRLST 

FXTMKR 

WQ*2 

SCRLST 

SCRAPX 

EXIT 



8F SUBSCRIPTS 
LIST 



LIST 
EXP LIST 



LIST 
FIXED 
EXP LIST 

LIST 

8F SUBSCRIPTS 



N 



L PAREN 
A6 

NUMBER 6F SUBSCRIPTS FAIL 
DIMENS 
WO 

F8UR 
DIMENS 
SCRIPT 
EXP SCAN 
SCRIPT EXP LIST 
C8MMA 
A2 

R PAREN 
SCRIPT EXP 
GRNTEE 
SCRIPT 

DIMENS 

NUMBER 8F SUBSCRIPTS FAIL 

MPY PLEX 

SCRIPT EXP LIST 

GRNTEE FIXED 

ADD PLEX 

A3 

DIMENS LIST 

NUMBER 9F SUBSCRIPTS FAIL 

SCRIPT EXP LIST 

DIMENS LIST 

MINUS FLAG 

ADDRESSABLE FLAG 

A 5 

SCRIPT LIST 

FX TEMP MAKER 

WO 

SCRIPT LIST 

SINGLY SCRIPTED ARRAY PLEX 

EXIT 



$SCIIDS JRS 


IDSCAN 


JAF 


RGSCtD 


$8F 


SCAIDF 


JAT 


EXIT 


BRU 


JNCNFA 


♦UNSCRIPTED ARRAY SCAN 


SUNSCAS S9C 


IETRFG 


JAF 


FAIL 


JRS 


IDSCAN 


JAF 


FAIL 


S9T 


AYIDFG 


JAF 


FAIL 


CSA 


LPAREN 


JAT 


FAIL 


FET 


W0#2 


MIN 


W0#2 


JRS 


L9DCTL 


JRS 


RGFXCS 


FIC 


SCRAPX 


8RU 


EXIT 


♦GRNTEE FIXED 




$GRTEFX S8F 


FLFLAG 


JAF 


EXIT 


FAC 


FJXTPX 


3RU 


EXIT 


♦ID SCAN 




$IDSCAN JRS 


SYMBSC 


♦ID CLASSIFY 




$IDCLAS SER 


L9CDML 


JAT 


AX*0 


SER 


FXSLST 


JAT 


EXITRU 


SER 


FLSLST 


JAT 


EXITRU 


SER 


AYYLST 


JAT 


A HO 


SER 


GLSLST 


JAT 


Alio 


SER 


L9CSPL 



ID SCAN 
REGISTER SCALAR ID 
SCALAR ID FLAG 
EXIT 
ID CONFLICT FAIL 

LETTER FLAG 
FAIL 
ID SCAN 
FAIL 
ARRAY ID FLAG 

FAIL 

L PAREN 

FAIL 

WO 

wo 

L9AD CENTRAL 

REGISTER FX CONST 

SINGLY SCRIPTED ARRAY PLEX 

EXIT 

FL FLAG 
EXIT 

FIX TERM PLEX 
EXIT 

SYMB0L SCAN 

LOCAL DMY LIST 
A2 

FX SCALAR LIST 
EXIT TRUE 
FL SCALAR LIST 
EXIT TRUE 
ARRAY LIST 
A2 

GLOBAL SPROG LIST 
A2 
LOCAL SPROG LIST 



JAF 

A140 JRS 

BRU 

♦ STANDARD M8DE 
$STDMEV LDA 

LRSH 

ETR 

CAX 

LPA 

SKA 

BRU 

LPA* 

MRG 

STA* 
AIM LDA* 

BRU 
♦SYMB8L SCAN 
$SYMBSC S8C 

JAF 

JRS 

STA 

JRS 

STA 
A142 JAT 

JRS 

BRU 

♦ PACK STRING 
$PAKSTR LDA 

STA 

IDA 

JRS 

LDB 

STB 

BRU 
♦PACK SYMB8L 
$PAKSYM LDA 
♦PACK 3 CHAR/W 
SPAK3CW STA 

CLA 



XTF 

STDMEV 
EXJTRU 
EVAL 

CTL1 
16 
CH4MSK 

CHTT8L#2 

IJKLMN 

AIM 

WRKB8T 

M8DEMS 

WRKB8T 

WRKB9T 

EXIT 

LETRFG 
ILSYFA 
PAKSYM 

CTL1 

PAKSYM 

CTL2 

EXIT 

PAKSYM 

AH2 

UBLKFG 
SCANMD 
N8TCRF 
PAK3CW 
SKBLFG 
SCANMD 
EXIT 

LTRDGF 
8RD 

PAKTP3 



EXIT FALSE 
STANDARD MQDE EVAL 
EXIT TRUE 

CENTRAL 1 

CHAR 4 MASK 

CHAR TRANSL TABLE 

IJKLMN FLAG 

Al 

W8RK B8TT8M 

M8DE MASK 

W8RK B8TT8M 

W8RK B8TT8M 

EXIT 

LETTER FLAG 
ILLEGAL SYNTAX FAIL 
PACK SYM88L 
CENTRAL I 
PACK SYMB8L 
CENTRAL 2 
EXIT 

PACK SYMB8L 
Al 

USE BLANKS FLAG 

SCAN M8DE 

N8T CAR RETURN FLAG 

PACK 3 CHARS/W8RD 

SKJP BLANKS FLAG 

SCAN M8DE 
EXIT 

LETTER 8R DIGIT FLAG 

TERMINAL CHARACTER INDICAT8R 





STA 


PAKTP1 




STA 


PAKTP2 


Al*3 


sec 


PAKTP3 




JAF 


A1H 




LDX 


PAKTP1 




EXU 


CHR3ST,2 




ETR 


CHMT3B#2 




ADM 


PAKTP2 




CLA 






STA 


CRNTCH 




MIN 


PAKTP1 




LDA 


PAKTP1 




SKE 


*3 




BRU 


A1^3 




LDA 


PAKTP2 




BRU 


XTF 


A144 


LDX 
CLA 


PAKTPl 




MRG 


PAKTP2 




BRU 


EXITRU 


*LBL 


C8MMA. SCAN 


$IBC8MA JRS 


L8SCAN 




CSF 


C9MMA 




BRU 


EXIT 


*LBL 


SCAN 




$L,BSCAN JRS 


INSCAN 




S9L 


MAXLBL 




JAT 


ILNU^A 




LDA 


CTL2 




SKG 


ZER8 




BRU 


ILNUFA 




BRU 


REGLBL 


*C8NST SCAN 




$CSTSCN JRS 


DGCVIN 




CLA8 






STD 


CHARA 




S8C 


DIGTFL 




JAF 


A145 




JRS 


DGCVSC 



CHARACTER C8UNTER 
W8RD ASSEMBLY REGISTER 



PACK TEMP 1 
PACK BLANKS 
PACK TEMP 2 
EXIT TRUE 

LBL SCAN 
COMMA 
EXIT 

INTEGER SCAN 
MAX LBL ALL8WED , 
ILLEGAL NUMBER FAIL 
CENTRAL 2 
ZER8 

ILLEGAL NUMBER FAIL 
REGISTERELBL 

DIGIT C8NV INITIAL 

CHARACTERISTIC A 

DIGIT FLAG 

Al 

DIGIT CBNV SCAN 



H8LIT 



LDP 

STO 

CSA 
JAT 
CSA 
JAT 
*H8LLERITH I 
CSA 
JAF 
LDA 
STA 
SUB 
SKG 
BRU 
BRU 
STA 
LDA 
SKE 
BRU 
STA 
LDB 
STB 
LDA 
STA 
STB 
LDA 
STA 
LDA 
SKR 
BRU 
LRSH 
LDB 
LCY 
STB 
SKR 
BRU 
SKR 
3RU 
ST8 



H8LIT8 



H8UT7 



H8LIT5 



DGSCTA 
CHARA 

PERI9D 
A 146 
E 

A147 
ITERAL XLATE 
M 

A145A 
CTL2 
M9LIT1 
8NE 

five 

A145A 

H8LIT9 

CTL1 

ZER8 

A145A 

CRNTCH 

UBLKFG 

SCANMD 

8NE 

H8LIT3 

CTL2 

TW8 

H8LIT2 

SPACE 

H8LIT1 

H8LIT4 

2 

H8LIT6 

8 

N8UIT6 

H8LIT2 

N9UIT7 

H8LIT3 

H8LIT8 



DIGITS SCANED CNT A 
CHARACTERISTIC A 

PERI8D 

A3 

E 

A4 



CT 



N8T A H8L LIT 

CT T© TEST LATER FL ©R FX 



CURRENT CHAR 
USED BLANKS FLAG 
SCAN M8DE 



CT* 



CTL1 





IDA 


SK3LFG 




STA 


SCANMD 




LDA 


N8LIT9 




SKG 


TW9 




8RU 


RQFXCS 




SRU 


RGFtCS 


H9LJT4 


S9C 
CL8 


TCRBFG 




JAF 


H9UITA 




STB 


M8LIT1 




8RU 


H9LIT7 


H8LJTA 


ST8 


CRNTCH 




BRU 


H9UIT5 


A145A 


LDP 


CTL1 




set 


MAXINT 




JAT 


ILNUFA 




©RU 


RGFXCS 


A145 


CSF 


PERIOD 




S9C 


DIGTFL 




JAF 


JLSYFA 


A^6 


JRS 


DGCVSC 




CSA 


E 


Al<*7 


LDP 


CNARA 




SDP 


DGUCTA 




STD 


CHARA 




LDP 


CTL1 




JAF 


FLCSTM 




STD 


CNSTPA 




JRS 


SIGNIS 




LDP 


CHARA 




ADP 


CTL1 




STD 


CHARA 




LDP 


CNSTPA 




STD 


CTL1 


*FL C8NST MAKER 


$FLCST 


M EAX 


47 




N9D 


48 




STD 


CTU 


AH8 


SKN 


CHAR8 



SKIP BLANKS FLAG 
SCAN M9DE 



REGISTER FIXED C8NSTANT 

REGISTER FL C9NSTANT 

TAB-CAR RETURN-BACKSPACE FLAG 



CURRENT CHAR 

CENTRAL 1 

MAX INTEGER ALL9WED 

ILLEGAL NUMBER FAIL 

REGISTER FX C8NST 

PERI8D 

DIGIT FLAG 

ILLEGAL SYNTAX FAIL 

DIGIT C9NV SCAN 

E 

CHARACTERISTIC A 

DIGITS USED CNT A 

CHARACTERISTIC A 

CENTRAL X 

FL C8NST MAKER 

CONST TEMP A 

SIGNED INTEGER SCAN 

CHARACTERISTIC A 

CENTRAL 1 

CHARACTERISTIC A 

C8NST TEMP A 

CENTRAL 1 

57 

60 

CENTRAL 1 
CHARACTERISTIC B 



BRU 


A150 


MIN 


CHARB 


LDP 


TENTH3 


$BRM 


DBFXMU 


N8D 


47 


STD 


CTL1 


EAX 


»3>2 


BRU 


A148 


A149 LDP 


TENB4 


SBRM 


DBFXMU 


N8D 


47 


STD 


CTL1 


EAX 


4#2 


A150 SKR 


CHARB 


eRu 


AH9 


SKG 


ZER8 


BRU 


RGFUCS 


LDE 




STB 


CTL2 


CXA 




ETR 


ADRMSK 


SKG 


CLNEGL 


SKG 


CUP8SL 


&RU 


RGFUCS 


BRU 


ILNUFA 


♦SIGNED INTEGER SCAN 


$SIGNIS CSA 


MINUS 


JAF 


A151 


JRS 


JNSCAN 


CLAB 




SDP 


CTLl 


STD 


CTL1 


BRU 


EXIT 


A15J CSA 


PLUS 


BRU 


INSCAN 


♦INTEGER SCAN 




$INSCAN S8C 


DIGTFU 


JAF 


ILSYFA 


URS 


DGCVIN 



Al 

CHARACTERISTIC B 

9NE TENTH B-3 

D9UBLE FX MULT 

57 

CENTRAL 1 

*3 

A2 

TEN $4 

D8UBLE FX MULT 

R7 

CENTRAL 1 

4 

CHARACTERISTIC B 

A3 

ZER8 

REGISTER FL C8NST 

CENTRAL 2 

ADR MASK 

CHARIS L8WER NEG LIMIT 
CHARIS UPPER P8S LIMIT 
REGISTER FL C8NST 
ILLEGAL NUMBER FAIL 

MINUS 
Al 
INTEGER SCAN 

CENTRAL 1 
CENTRAL \ 
EXIT 

PLUS 
INTEGER SCAN 

DIGIT FLAG 
ILLEGAL SYNTAX FAIL 
DIGIT C8NV INITIAL 



JRS 


DGCVSC 


LDP 


CTU 


sei 


MAXINT 


JAT 


ILNUFA 


BRU 


EXIT 


♦ DIGIT C8NV 


INITIAL 


SDGCVJN CLAE 


\ 


STD 


DGSCTA 


STD 


DGUCTA 


STD 


SCDIGA 


STD 


CTL1 


BRU 


EXIT 


♦DIGIT C9NV 


SCAN 


DGCVSC EQU 


# 


AJ52 sec 


DJGTFL 


JAF 


EXJT 


JRS 


CNVJDG 


8RU 


A152 


• C8NV 6NE DIGIT 


SCNVIDG IDA 


CRNTCH 


MUL 


RSH18 


ETR 


CH4MSK 


SUB 


ASCNB 


STA 


SCDIGB 


MIN 


DGSCTB 


CLA 




STA 


CRNTCH 


LDP 


CTL1 


SKA 


T8P5BM 


BRU 


EXIT 


LSN 


4 


STD 


CTL1 


LDP 


TENB4E 


SBRM 


DBFXMU 


ADP 


SCDIGA 


STD 


CTL1 


MIN 


DGUCTB 


BRU 


EXIT 


♦P8UBLE FX r 


IULT 



DIGIT C8NV SCAN 
CENTRAL 1 

MAX INTEGER ALLOWED 
ILLEGAL NUMBER FAIL 
gXIT 



DIGITS SCANED CNT 
DIGITS USED CNT A 
SCANED DIGIT A 
CENTRAL 1 
EXIT 



DIGIT FLAG 

EXIT 

C9NV 8NE DIGIT 

Al 

CRRNT CHAR 
RIGHT SHIFTER 18 
CHAR 4 MASK 
ASCII NUMBER BASE 
SCANED DIGIT B 
DIGITS SCANED CNT 3 

CRRNT CHAR 

CENTRAL 1 

T8P 5 BITS MASK 

EXIT 

k 

CENTRAL 1 

TEN B4 EXACT 

D9UBLE FX MULT 

SCANED DIGIT A 

CENTRAL 1 

DIGITS USED CNT 8 

EXIT 



$DBFXMU HUT 


LDBFXM 


STD 


DPMPYA 


IDA 


CTL2 


CIB 




RCY 


1 


MUU 


DPMPYA 


RSH 


23 


STD 


DPMPYC 


UDA 


DPMPYB 


CLB 




RCY 


I 


MUL 


CTL1 


RSN 


23 


ADP 


DPMPYC 


STD 


DPMPYC 


UDA 


CTLi 


MUL 


DPMPYA 


ADP 


DPMPYC 


SBRR 


DBFXMU 


♦EXP REMEMBER 


M9DE GEN 


$XPREMG JRS 


M9DSET 


♦ EXP BY M9DE GEN 


SXP8YMG JRS 


ISTMSA 


JAT 


FASSG 


♦SIGNED CMPtX 


BY M6DE GEN 


$SIGCMG JRS 


ISMD8K 


JRS 


M8DSET 


JRS 


SUMTG 


JRS 


SXPSGG 


JRS 


M8DREL 


JAT 


EXIT 


♦SET EXP M8DE 


GEN 


$SEXMG JRS 


ISMDFL 


JAT 


A153 


BLF 


FIXSPL 


BRU 


EXIT 


A153 BLF 


FLSTSL 


BRU 


EXIT 


♦FETCH AND SET SIGN GEN 



DP MPY A 
CENTRAL 2 

X 

DP MPY A 
27 

DP MPY C 
DP MPY B 

1 

CENTRAL 1 

87 

DP MPY C 

DP MPY C 

CENTRAL 1 

DP MPY A 

DP MPY C 

DOUBLE FX MULT 

M6DE SET 

IS TERM SIGNED ADDRESSABLE 
FETCH AND SET SIGN GEN 

IS MdDE 9K 
M8DE SET 
SUM TERM GEN 
SET EXP SIGN GEN 
M8DE RELEASE 
£XIT 

IS M8DE FL 
Al 

FIX SPR6G LINK 
EXJT 

FL9AT SPR8G LINK 
EXIT 



FASSG 


eiM 


FTCHP8 


♦SET EXP SIGN 


GEN 


$SXPSGG LDA 


WO/2 




SKE 


NEGTRT 




BRU 


CLR1AE 




LDA^ 


M8DB8T 




ADD^ 


M8DB8T 




ADD 


CGSGIN 




S98 


C9DLST 




BRU 


CURIAE 


♦ TERM 


BY M8DE 


GEN 


$TMBYMG JRS 


ISTMSA 




JAr 


CTBYMG 




BIM 


FTCNPe 




BRU 


EXIT 


♦CMPLX 


TERM BY 


' M9DE GE 


$CTBYMG JRS 


ISMD8K 




JAT 


SUMTG 




S8F 


FUFLAG 




JAF 


SUMTG 




JRS 


M8QSET 




JRS 


SUMTG 




BLF 


FIXSPL 




BRU 


M8DREL 


♦SUM TERM GEN 




$SUMTG 


S8T 


SUMFLG 




JAF 


PR8DTG 




JRS 


SUMPSU 


A15^ 


M8F 


TERMLS 




JAF 


SUMPEX 




JRS 


GRSAG 




LDA 


wil#2 




SKE 


W2#2 




BRU 


A155 




BIM 


ADDP8P 




BRU 


A156 


A155 


BIM 


SU8P8P 


A156 


SKR 


WRKB8T 




BRU 


A154 



FETCH P8P 

wo 

NEGATIVE TRAIT 

CLEAR 8N£ AND EXIT 

M0DE B8TT8M 

M8DE B8TT8M 

CHANGE SIGN INST 

C8DE LIST 

CLEAR 8NE AND EXIT 

IS TERM SIGNED ADDRESSABLE 
CMPLX TERM BY M8DE GEN 
FETCH P8P 
EXIT 

IS M8DE 8K 
SUM TERM GEN 
FL FLAG 
SUM TERM GEN 
M8DE SET 
SUM TERM G£N 
FIX SPR8G LINK 
M8DE RELEASE 

SUM FLAG 
PR6D TERM GEN 
SUM.PR8D SET UP 
TERM LIST 
SUMwPRQD EXIT 

GRNTEE SIGNED ADDRESSABLE GEN 
Wl 
W£ 
Al 

ADD P8P 
A3 

SUB P8P 
W8RK B8TT8M 
A2 



#PR8D TERM GEN 




$PR8DTG S9T 


PR8DFG 


JAF 


FCTTG 


JRS 


SUMPSU 


AJ57 M9F 


TERMLS 


JAF 


SUMPEX 


JRS 


GRSAG 


BIM 


MPYP8P 


E8S 


Wl*2 


BRU 


A157 


•SUM.PR8D SET I 


JP 


SSUMPSU RSV 


TERMLS 


PUL 


TERMLS 


RSV 


W8RKLT 


A158 M9F 


TERMLS 


JAF 


A159 


S8F 


ADDRFG 


JAT 


A158 


A159 ADR 


TERMLS 


CAR 


W9RKLT 


M9F 


TERMLS 


BRU 


TMBYMG 


#SUM*PR9D EXIT 




$SUMPEX E8S 


Wi/S 


RLS 


TERMLS 


BRU 


EXIT 


♦FUNCTION TERM 


GEN 


$FCTTG S9T 


FCTFLG 


JAF 


DVTMGN 


PUL 


W8RKLT 


RSV 


SPARGL 


PUL 


SPARGL 


JRS 


SPASQG 


JRS 


ISMD8K 


JRS 


SPJPGN 


JAF 


3EXM3 


BRU 


EXIT 


*SPR8G JUMP GEN 


$SPJPGN S9T 


LSPIDF 



PR8D FLAG 
FUNCTION TERM GEN 
SUM.PR9D SET UP 
TERM LIST 
SUM-.PR9D EXIT 

GRNTEE SIGNED ADDRESSABLE GEN 
MPY P8P 
Wl 
A5 



TERM LIST 
TERM LIST 
W9RK LIST 
TERM LIST 
A2 

ADDRESSABLE 
AJ 

LIST 

LIST 

LIST 

BY M8PE 



FLAG 



TERM 
W8RK 

TERM 
TERM 



GEN 



Wl 
TERM 
EXIT 



LIST 



FUNCTI8N FLAG 
DIV TERM GEN 
W9RK LIST 

SPR9G ARGUMENT LIST 
SPR8G ARGUMENT LIST 
SPR8G ARG SEQ GEN 
IS M8DE QK 
SPR9G JUMP GEN 
SET EXP M9DE GEN 
EXIT 

L8CAL SPR8G ID FLAG 



JAF 


AX60 


BNG 


TW8 


BIF 


BRMM0P 


BRU 


EXIT 


A160 BIF 


8RMQP 


BRU 


EXIT 


*DIV TERM GEN 




SDVTMGN S8T 


DIVFG 


JAF 


EXPNTG 


RUL 


W9RKLT 


JRS 


JSTMSA 


JAT 


A161 


JRS 


CTBYMG 


JRS 


SNTBMG 


A161 SWT 


wa#2 


JRS 


TM8YMG 


E8S 


WX#2 


SWT 


Wl*2 


BJM 


DIVP8P 


ESS 


Wl*2 


BRU 


EXIT 


♦EXP8N TERM GEN 


$EXPNTG S8T 


EXPFG 


JAF 


FJXTGN 


PUL 


WORKUT 


JRS 


GRNM8D 


SWT 


Wi#2 


JRS 


GRNM8D 


BAM 


FARGP8 


BAM 


NEXTAP 


BIF 


EXPSPt 


BRU 


EXIT 


♦FIX TERM GEN 




$FJXTGN JRS 


M6pSET 


PUL 


W8RKUT 


JRS 


TMBYMG 


ESS 


Wl#2 


BRU 


M8DREL 


♦SPR8G ARG SEQ 


GEN 



Al 

TW9 

BRM M8P 
EXIT 

BRM* M9P 
EXIT 

DJV FLAG 
EXP8N TERM GEN 
WSRK LIST 

IS TERM SIGNED ADDRESSABLE 
Ai 

CMPLX TERM BY M9DE GEN 
ST8RE IN TEMP BY M8DE GEN 
W2 

TERM BY M8DE GEN 
Wl 
Wl 

DIV P8P 
Wl 
EXIT 



EXP8N FLAG 
FIX TERM GEN 
W8RK LIST 

GRNTEE ADDRESSABLE 
Wl 

GRNTEE ADDRESSABLE 
FIRST ARG P8P 
NEXT ARG P8P 

exp8n spr8g link 
£xit 



BY M8DE GEN 
BY M8DE GEN 



M8DE SET 
W8RK LIST 
TERM BY M8DE 
Wl 
M8DE RELEASE 



GEN 



$SPASQG RSV 


W8RKIT 


A162 T8T 


SPARGl 


JAF 


A163 


JRS 


GA8MGN 


BRU 


A162 


A163 RUS 


SPARGL 


T8T 


W8RKLT 


BAM 


FARGP8 


A164 T8T 


W6RKLT 


JAF 


A165 


8AM 


MEXTAP 


BRU 


A164 


A165 RLS 


W8RKLT 


BRU 


EXJT 


•SCRIPT GEN 




SCRGEN EXT 


♦ 


SCRGEN EQU 


* 


AJ66 T8T 


SCRLST 


JAF 


EXIT 


JRS 


XPREMG 


T8T 


SCRLST 


JRS 


STFMG 


BRU 


A166 


*GRNTEE ADDRESSABLE 8WN 


$GA8MGN JRS 


M8pSET 


JRS 


GRNM8D 


BRU 


M8DREL 


♦GRNTEE ADDRESSABLE BY 


$GRNM8D JRS 


ISTMSA 


JAF 


A167 


UDA 


P8STRT 


SKE 


Wl/2 


BRU 


A168 


JRS 


ISMD8K 


JAF 


A168 


SWT 


Wl,2 


BRU 


CLR1AE 


A*67 JRS 


SIGCMG 


BRU 


SNTBMG 



M8DE GEN 



M8DE GEN 



W8RK LIST 
SPR8G ARGUMENT LIST 
A2 

GRNTEE ADDRESSABLE 8WN M8DE GEN 
Al 

§PR8G ARGUMENT LIST 
W8RK LIST 
FIRST ARG PQP 
W8RK LIST 
A4 

NEXT ARG P8P 
A3 

W8RK LIST 
EXIT 



SCRIPT LIST 

EXIT 

EXP REMEMBER M8DE GEN 

SCRIPT LIST 

ST8RE F8RGET M9DE GEN 

Al 

M8DE SET 
GRNTEE ADDRESSABLE BY MQDE GEN 
M8DE RELEASE 

IS TERM SIGNED ADDRESSABLE 
Al 

P8SITIVE TRAIT 
Wl 
A2 

IS M8DE 8K 
A2 
Wl 

CLEAR 8NE AND EXIT 
SIGNED CMPLX BY M8DE GEN 
5T8RE IN TEMP BY M8DE GEN 



A168 JRS 


FASSG 


BRg 


SNTBMG 


♦GRNTEE SIGNED 


ADDRESSABLE 


$GRSAG JRS 


ISTMSA 


JAT 


EXIT 


JRS 


SNTBMG 


SWT 


Wl#2 


JRS 


TMBYMG 


SWT 


W3/2 


SWT 


W2*2 


ESS 


W3/2 


BRU 


EXIT 


*ST9RE IN TEMP 


BY M9DE GEN 


$SNTBMG JRS 


TPBMKR 


FET 


WO/2 


8IM 


STRP9P 


8RU 


EXIT 


#ST9RE F9RGET 


M9DE GEN 


$STFMG BIM 


STRP9P 


8RU 


M9DREL 


*IS TERM SIGNED ADDRESSABLE 


$ISTMSA FET 


P9STRT 


SWT 


Wl#2 


A169 S9T 


MINJSF 


JAF 


A17Q 


PUL 


W9RKLT 


FET 


NEGTRT 


E6S 


W2#2 


BRU 


A169 


A£7Q S9F 


ADDRFG 


JAF 


XTF 


JRS 


ISMD9K 


JAT 


EXITRU 


S8T 


FXCSTF 


JAF 


EXJTRU 


JRS 


19DCTL 


CLB 




EAX 


23 


N9D 


23 



GEN 



FETCH AND SET SIGN GEN 
STORE IN TEMP BY M9DE GEN 

IS TERM SIGNED ADDRESSABLE 
EXIT 

ST9RE IN TEMP BY M9DE GEN 
W 1 

TERM BY M9DE GEN 
W3 
W2 
W3 
EXIT 

TEMP BY M9DE MAKER 
WO 

ST9RE P9P 
EXIT 

ST9RE P9P 
M9DE RELEASE 

P9SITIVE TRAIT 
Wl 

MINUS FLAG 
A2 

W9RK LIST 
NEGATIVE TRAIT 
W2 
Al 

ADDRESSABLE FLAG 
EXIT FALSE 
IS M9DE 8K 
EXIT TRUE 
FX C9NST FLAG 
EXIT TRUE 
L9AD CENTRAL 



27 
27 



LDE 




STD 


CTL1 


JRS 


RGFLCS 


8RU 


EXITRU 


♦ IS M8DE FL 




$ISMDFL UDA 


FUFIAQ 


BRU 


8KFLTS 


•IS M8DE 9K 




$ISMD9K UDA* 


WRKB8T 


ETR 


M8DEMS 


♦9K.FU TEST 




$BKFLTS SKE* 


M6DB8T 


BRU 


XTF 


BRU 


EXITRU 


• M8DE SET 




$M8DSET IDA* 


WRKB8T 


ETR 


M8DEMS 


S8B 


M8DLST 


8RU 


EXIT 


*DMY TEMP MAKER 


$DYTPMK FET 


DYPTCD 


MIN 


DMYCNT 


IDA 


DMYCNT 


MIN 


DMYCNT 


ADD 


wo*a 


STA 


W0i2 


BRU 


STDMEV 


*TEMP BY M8DE 


MAKER 


$TPBMKR JRS 


FXTMKR 


IDA* 


WRKB8T 


MRG* 


M8DB9T 


STA* 


WRKB8T 


BRU 


EXIT 


*FX TEMP MAKER 




$FXTMKR FET 


FXTPCD 


MIN 


TMPCNT 


UDA 


TMPCNT 


MIN 


TMPCNT 


ADM 


W0#2 



CENTRAL I 
REGISTER FL C8NST 
EXIT TRUE 

FL FLAG 
8K»FL TEST 

W8RK B8TT8M 
M8DE MASK 

M8DE B8TT8M 
EXIT FALSE 
EXIT TRUE 

W9RK B8TT8M 
M8DE MASK 
M8DE LIST 
EXIT 

DMY PNTR C8DE 
DMY CNT 
PMY CNT 
DMY CNT 
WO 

wo 

STANDARD M8DE EVAL 

FX TEMP MAKER 
WORK B8TT6M 
M8DE B8TT8M 
W8RK B8TT8M 
EXIT 

FX TEMP PNTR C8DE 
TEMP CNT 
TEMP CNT 
TEMP CNT 
WO 



ADD 
3KS 
8RU 
STA 
BRU 

♦ LBL MAKER BRU 
$LMBRUG JRS 

FET 
SIF 
LPA 
BRU 

♦ LBL MAKER LBL 
*LMLBLG JRS 

FET 
BIF 
LDA 
BRU 

♦ LBL MAKER 
HBUMAK FET 

BRU 
♦REGISTER L8L 
$REGL8l SER 

JAT 

FET 
♦REGISTER 8R M 
*RGRMLB B9P 

SWT 
M9N 
LDA 

BRU 
♦REGISTER SCAL 
SRGSCID FET 

JRS 

S9F 

JAT 

39P 

MC9 

BRU 
A17JL B9P 



9NE 

MXTPCT 

EXIT 

MXTPCT 

EXIT 

GEN 

LBLMAK 
W0#2 
3RUM9P 
WO/2 
EXIT 
GEN 

LBLMAK 
WO* 2 
LBLLOP 
WO/2 
EXIT 

MADELB 
RGRMLB 

LBLLST 
EXIT 
CTU2 
AKE LBL 

LBLLST 

Wl#2 
LBLLST 
WO/ 2 
EXIT 
AR ID 
ZER9 
STDMEV 
FLFLAG 
A171 
FXSLST 
FXSLST 
AJ72 
FLSLST 



8NE 






MAX 


TEMP 


CNT 


EXIT 






MAX 


TEMP 


CNT 


EXIT 






L3L 


MAKER 


wo 






BRU i 


M8P 




wo 






EXIT 






LBL 


MAKER 


WO 






LBL 1 


„9P 




wo 






EXIT 







MADE LBL 
REGISTER 9R MAKE LBL 

LBL LIST 
EXIT 
CENTRAL 2, M6VE LABEL T8 B9T 9F W9RK LIST 



LBL LIST 




Wl 




LBL LIST 




wo 




EXIT 




ZER8 




STANDARD f 


1&DE EVAL 


FL FLAG 




FL6ATING SCALER 


FX SCALAR 


LIST 


FX SCALAR 


LIST 


Al 




FL SCALAR 


LIST 



MC8 FLSLST 

A172 §WT Wli2 

BRU CIR1AE 

♦REGISTER FX C8NST 

SRGFXCS SER FXCLST 

JAT EXIT 

88P FXCLST 

UDA CT12 

S8B FXCLST 

BRU EXIT 

♦REGISTER Ft C8NST 

$RGFLCS LDP CTL1 
XAB 

STD CTU 

$ER FLCLST 

JAT EXIT 

$6P FLCLST 

MC8 FLCLST 

BRU EXIT 

♦L6AD CENTRAL 

$L6DCTL JRS PRPNTR 

10P* ADRPT8 

STD CTL1 

BRU EXIT 

♦INITIALIZE ALL LISTS FR8M 

$INITLS HLT LINITL 

LOX ZER8 

LDA sLSTMEM 

STA FLSBAS 

BRU A17# 

A173 CAX 

LDA NLIST 

STA BA§E#2 

AJ7^ STA STARTS 

STA T8P,2 

STA 68TT8M#2 
CXA 

ETR ADRMSK 

ADD 8NE 



Q8TT8M 



FL SCALAR LIST 

Wl 

CLEAR QNE AND EXIT 

FX C8NST LIST 
EXIT 

FX C8NST LIST 
CENTRAL 2 
FX C8NST LIST 
EXIT 

CENTRAL 1 

CENTRAL 1 

FL C8NST LIST 

EXIT 

FL C8NST LIST 

FL C8NST LIST 

EXIT 

PR8CESS PNTR 

ADDRESS P8INTED T8 

CENTRAL 1 

EXIT 



START 8F LIST MEM8RY 



END 8F LIST MEM8RY 

BASE 

START 

T8P 

B8TT8M 

ADR MASK 
8NE 



SKE N8LIST 

BRU A173 

S8RR INJTLS 
♦8VERFL8W FAIL 
$8VFAIL ADR 8VFLQT 

8RU SETLSA 
♦ILLEGAL ALLOCATION FAIL 
•ILALFA ADR AL8CAQ 

iRU SETLSA 
♦ILLEGAL NUMBER FAIL 
$ILNUFA ADR NUMBQT 

BRU SETLSA 
♦NUMBER OF SUBSCRIPTS FAIL 
$NU9FSF ADR SUBSCQ 

8RU SETLSA 
♦ID C8NFLICT FAIL 
$JNCNFA ADR IDECQT 
♦SET LAST ACTIVE 
$SETLSA LDA LACNCT 

9RU N6TEF 
♦ILLEGAL SYNTAX FAIL 
$ILSYFA ADR SYTAXQ 

LDA INCHCT 
♦ NOTE FAIL 
$N8TEF S8B FAILDL 

M8N FAILDL 

8RU FAIL 

£ND 



NUMBER OF LISTS 
Al 

INITIALIZE LISTS 

OVERFLOW QT 
SET LAST ACTIVE 

ALLOCATION QT 
SET LAST ACTIVE 

NUMBER QT 
SET LAST ACTIVE 

SUBSCRIPTS QT 
SET LAST ACTIVE 

ID DECLARATION QT 

LAST ACTIVE CHAR CNT 
N8TE FAIL 

SYNTAX QT 
INPUT CHAR CNT 

FAIL DATA LIST 
FAIL DATA LIST 
FAIL 



5CX 



IDENT 7-15 PR8GRAMMEP 8PER»S/ C9MPJLER PART 5 



BAM 
CSF 
CSA 
JAT 
JAF 
TRY 
QSF 
STD 
FET 
SWT 
JRS 
BIF 

Mca 
set 
seF 

RSV 
CNT 
RLS 
T8T 
FIL 
M8N 
LDP 
BIF 
SAL 

BNG 
BAF 
CAR 

Pie 

CAC 
CIC 
FIC 
FAC 

Bap 



8PP 

app 

8PD 

apo 

9P0 

apo 

app 
apo 

9PD 

8PD 
8PP 

apo 
aPD 
apo 



9PD 

apo 

app 

9PD 
8PD 
8PD 

aPD 
aPD 

8PD 
8PD 

8PD 

app 
app 

8PD 
8PD 

app 
app 

8PD 

8PD 



iOOOOOOOB 
iOlOOOOOB 
10200000B 
10300000B 
10400000B 
10500000B 
4O6OOO0OB 
10700000B 

uoooooob 
ihoqooob 

11200000B 
11300000B 
1UQOOOOB 

U500000B 
116000008 
117000008 
12000000B 
12100000B 

12200000B 
12300000B 
12400000B 
12500000B 
12600000B 
12700000B 
13000000B 
13100000B 
13200000B 
13300000B 
13400000B 
13500000B 
13600000B 
13700000B 
14200000B 
1UQ0000B 



M8F 


9P0 


142000006/1,1 




SNE 


epp 


1430000QB/1/1 




SER 


8PD 


1440Q000B/1/1 




icr 


8PD 


14500000B/1j1 




FIP 


6PD 


14600000B/1*1 




ADR 


8P0 


14700000B/1/1 




E8S 


9PD 


15000000B/1/1 




S8B 


8P0 


15100000B/1,! 




S8T 


8PD 


15200000B/1/1 




SDP 


8PD 


153000Q0B/1/1 




ADP 


8PD 


15400000B/1/1 




REC 


8PD 


15500000B/U 1 ■ 




C0F 


8PD 


15600000B/1/1 




Lee 


8PD 


15700000B/1/1 




PRC 


8PD 


16000000B/1/1 




PRQ 


8PD 


161000008/1,1 




S8C 


8PD 


16200000B/1/1 




BIM 


8PD 


16300000B/1/1 




FEX 


8PD 


16400000B/1/1 




ICT 


P8PD 


16500000BMU 




ICTP9P CIO 


ZER8 






SKE 


sl558 






BRR 









MIN 









BRR 







*FEX 


P8P 


FAIL EXIT 164 




FEX 


P8PD 


164000Q0B/1/1 




FEXP6P SBRM 


P8NTRY 


PQP ENTRY 




CXA 








STA* 


SVB8T 


SAVE B8TT8M 




IDA 


ITMPCT 


INITIAL TEMP C8UNT 




STA 


TMPCNT 


TEMP CNT 




IDA 


SKBLFG 


SKIP BLANKS FLAG 




STA 


SCANMD 


SCAN M8DE 




RSV 


PLEXLS 


PLEX LIST 




BRU 


EXIT 


EXIT 


♦ TRY 


P3P 


TRY 105 




TRY 


P8PD 


105000003/1/1 





TRYP6P SBRM 


P9NTRY 


SBRM 


FEXTYS 


BRU 


XTF 


JR3 


0/2 


IDA 


MINU17 


ADM 


SV38T 


BRU 


EX1TRU 


*FEX»TRY SAVE 




FEXTYS HLT 


LFEXTY 


STA 


SAVETl 


SAL 


FLSLST 


SAL 


FXSLST 


SAL 


W9RKLT 


SAL 


XITLS 


IDA 


LINECT 


S9B 


SAVELS 


IDA 


INCHCT 


S9B 


3AVELS 


LDA 


CRNTCH 


sea 


SAVELS 


LDA* 


FEXTYS 


S98 


SAVELS 


S9B 


SAVELS 


IDA 


SAVEU 


MIN* 


FEXTYS 


SBRR 


FEXTYS 


♦FAJL 




$FAJL LDX 


SVB9T 


LDA 


WO/2 


SUB 


9NE 


STA 


FAILEX 


LDA 


Wl/2 


STA* 


FEXTYS 


LDA 


W2#2 


STA 


CRNTCH 


IDA 


W3#2 


STA 


INCHCT 


LDA 


W<m2 


STA 


LINECT 



P9P ENTRY 
FEX*TRY SAVE 
EXIT FALSE 



MINUS SEVENTEEN 
SAVE B9TT9M 
EXIT TRUE 



SAVE TEMP 1 
FL SCALAR LIST 
FX SCALAR LIST 
W9RK LIST 
EXIT LIST 
LINE CNT 
SAVE LIST 
INPUT CHAR CNT 
SAVE LIST 
CRRNT CHAR 
SAVE LIST 
FEX*TRY SAVE 
SAVE LIST 
SAVE LIST 
SAVE TEMP X 
FEX-TRY SAVE 
FEX.TRY SAVE 

SAVE B8TT9M 
Wo 
8NE 

FAIL EXIT 
Wl 

FEX^TRY SAVE 
W2 

CRRNT CHAR 
W3 
INPUT CHAR CNT 

LINE CNT 



IDA 


MINUS5 


MINUS FIVE 


ADM 


SVB8T 


SAVE B8TT8M 


REC 


XITLS 


EXIT LIST 


REC 


W8RKLT 


W8RK LIST 


REC 


FXSLST 


FX SCALAR LIST 


REC 


FLSLST 


FL SCALAR LIST 


SBRR 


FEXTYS 


F£X*TRY SAVE 


*SAVE LIST DATA 




$SVL»SDT IDA 


N9FLSV 


NUMBER ©F FIRS 


STA 


SAVET1 


SAVE TEMP 1 


LDX 


N9LSVB 


NUMBER 8F LISTS 


AJ,75 SAL* 


SAVETl 


SAVE TEMP 1 


MINI 


SAVETi 


SAVE TEMP 1 


BRX 


A175 


Al 


SBRM 


FEXTYS 


FEX-TRY SAVE 


BRU 


RCFAIL 


REC8VER FR8M Fa. 


BRU 


EXIT 


EXIT 


♦REC8VER FR8M 


FAIL 




RCFAIt UDA 


FAILEX 


FAIL EXIT 


STA» 


EXIB9T 


EXIT B8TT8M 


IDA 


N8LLSV 


NUMBER 8F LAST 


STA 


SAVETl 


SAVE TEMP 1 


LDX 


N8LSVB 


NUMBER 8F LISTS 


A176 REC* 


SAVETl 


SAVE TEMP 1 


SKR 


SAVETl 


SAVE TEMP 1 


BRX 


A176 


Al 


IDA 


N8ITSV 


NUMBER 8F ITEMS 


ADM 


SVB8T 


SAVE B9TT8M 


BRU 


EXIT 


EXIT 


#SAL P^P 


SAVE A LIST 127 




SAL P8PD 


12700000B, 1,1 




SALP9P SBRM 


N8NESE 


N8 NEST ENTRY 


LDA 


START/2 


START 


SUB 


BA$E#2 


BASE 


§8B 


SAVELS 


SAVE LIST 


LDA 


T8P,2 


T8P 


SUB 


BASE'2 


BASE 


S8B 


SAVELS 


SAVE LIST 


LDA 


B8TT8Mj2 


B8TT8M 



1 LIST SAVED 
SAVED BRXER 



LIST SAVED 
SAVED BRXER 



SAVED 



SUB 


BASE/2 




BASE 


S8B 


SAVELS 




SAVE LIST 


BRU 


INDXEX 




INDEX EXIT 


*REC P6P 


REC8VER 






R£C PdPO 


155000008/ 


itl 




RECP8P SBRM 


NBNESE 




N8 NEST ENTRY 


IDA# 


SVB8T 




SAVE B8TT8M 


ADD 


BASE#2 




BASE 


STA 


88TT6M/2 




B8TT8M 


SKR 


SVB8T 




SAVE B8TT8M 


LDA* 


SVB8T 




SAVE B8TT8M 


ADD 


BASE/2 




BASE 


STA 


T8P/2 




T8P 


SKR 


SVB8T 




SAVE B8TT8M 


IDA* 


SVB8T 




SAVE B8TT8M 


ADD 


BASE/2 




BASE 


STA 


START/2 




START 


SKR 


SVB8T 




SAVE B8TT8M 


BRU 


INDXEX 




INDEX EXIT 


#BAM P8P 


BUILD BY ADDRESS 


M8DE 100 


BAM P8PD 


100000008/ 


1/ 1 




BAMP6P SBRM 


P8NTRY 




P8P ENTRY 


STX 


BIAMT1 




BIM^BAM TEMP 1 


BRU 


BIMBAM 




BIM-BAM 


*BJM P8P 


BUILD INSTRUCTJ8N 


BY M8DE 


BJM P8PD 


163000G0B/ 


1/1 




BJMP8P SBRM 


P8NTRY 




P8P ENTRY 


STX 


BIAMT1 




BIM.BAM TEMP 1 


JRS 


ISMD8K 




IS M8DE 8K 


*BJM»BAM 








BIMBAM S8F 


FLFLAG 




FL FLAG 


IDA* 


EXIB8T 




£XIT B8TT8M 


MUL 


RSH16 




RIGHT SHIFTER 16 


ADM 


BlAMTl 




BIM»BAM TEMP 1 


ADM 


BIAMT1 




BIM*BAM TEMP 1 


BIF* 


BIAMT1 




BJM^BAM TEMP 1 


BRU 


EXIT 




EXIT 


*BLF P8P 


BUILD LINK 


AND FILE 


BLF P8PD 


126000008/ 


1/1 





♦ BIF 
BIF 

BIFP8P 



BLFP&P SBRM 
CXA 
ADD 
S8B 
BAF 
BRU 
P8P 
P8PD 
SBRM 
CXA 
XMA* 
S8B 
S8F 
JAT 
S8T 
JAF 
PUt 
BIF 
JRS 
JAF 
MJN 

BRU 
IDA 

MRG 
STA 

BRU 

JRS 

JAF 

UDA 

MRG 

STA 

IDA* 

MUL 

MUL 

C3A 

ADD* 

SUB 

MUL 

SKR 



A177 



A178 
A179 



A*8Q 



P8NTRY 

ST8FLK 

W8RKLT 

SYSL8P 

EXIT 

BUILD INSTRUCTI8N 

il300000B#l#l 

P8NTRY 

WRKB8T 

W8RKUT 

PTIDFG 

A178 

SCRAFG 

A180 

W8RKIT 

UDXM6P 

DYTEST 

A177 

W0#2 

A179 

Wl*2 

8PTAGB 

A180 
DYTEST 

A180 

WX#2 

8PINDB 

Wl*2 

WRKB8T 

RSN18 

KEYVAL 

WRKB8T 

8NE 

RSHl^ 

WRKB8T 



P8P ENTRY 

START 8F LINKS 
W8RK LIST 
SYS L8P 
EXIT 
AND FILE 113 

P8P ENTRY 

WORK B8TT8M 

W8RK LIST 

PART ID FLAG 

A4 

SINGLY SCRIPTED 

A7 

W8RK LIST 

LDX M8P 

DMY TEST 

A3 

wo 

A5 
Wl 

M8P TAG BIT 

Wl 

A7 

PMY TEST 

A7 

Wl 

M8P IND BIT 

Wl 

W8RK B8TT8M 

RIGHT SHIFTER 18 

KEY VALUE 



ARRAY FLAG 



WORK B8TT8M 

8NE 

RIGHT 

W8RK 



SHIFTER 
8TT8M 



14 





IDA* 


WRKB8T 


W8RK B6TT8M 




MRG 


8NEA14 


8NE IN 14TH BIT 




BRU 


BAFBIF 


BAF-BIF 


*BAF 


P9P 


BUILD A8S8UUTE AND FILE 


BAF 


P8PD 


132000008/ 1/1 




BAFP8P SBRM 


P8NTRY 


P8P ENTRY 




IDA* 


WRKB8T 


W8RK B8TT8M 




MUL 


RSH14 


RIGHT SHIFTER 14 




CXA 






#BAF« 


>BIF 






BAFBJ 


:f RSH 
CBA 


10 


12 




S8B 


C8DLST 


C8DE LIST 




BRU 


CURIAE 


CLEAR 8NE AND EXIT 


#PMY 


TEST 






DYTEST S6T 


LDYJDF 


L8CAL DMY ID FLAG 




JAT 


A181 


Al 




SKN 


SPTRIG 


SPR8G TRIGGER 




BRU 


XTF 


EXIT FALSE 




FET 


WO/2 


WO 




jrs 


L9DCTL 


L8AD CENTRAL 




SER 


QDL1ST 


GL8BAL DMY LIST 




JAF 


XTF 


EXIT FALSE 




SWT 


WX*2 


Wl 




S8T 


AYIDFG 


ARRAY ID FLAG 




BNG 


TW8 


TW8 




SKR 


WRKB8T 


UI8RK B8TT8M 




JAF 


A181 


Al 




CNA 








S8B 


W8RKIT 


W9RK LIST 




BAF 


EAX8PP 


EAX+ 8P 


AJ81 


BNG 


TW8 


TW8 




BRU 


EXJTRU 


EXIT TRUE 


*FIL 


P9P 


FILE INSTRUCTI8N 


123 


FIU 


P8PD 


12300000B/1/1 




FILP8P SBRM 


N8NESE 


N8 NEST ENTRY 




IDA 


0/2 







S8B 


C8DLST 


C8DE LIST 




BRU 


B9TEXT 


B8TT8M EXIT 





PAGE 






*SER 


P8P 


SEARCH 




SER 


P8PD 


144000008,1,1 




SERP8P SBRM 


P8NTRY 


P8P ENTRY 




IDA 


T8P/2 


T8P 




SUB 


B8TT8M,2 


B8TT9M 




STA 


SERTP1 


SER TEMP 1 




SKN 


SERTP1 


SER TEMP 1 




BRU 


XTF 


EXIT FALSE 




IDA 


C8DE#2 


C8DE 




ETR 


SIZMSK 


SIZE MASK 




SUB 


8NE 


8NE 




STA 


SERTP2 


SER TEMP 2 




MRG 


EAX8P 


LIVE EAX+ M8P 




STA* 


A183 


A2 




$TA* 


A187 


A6 




UDA 


B8TT8M*2 


B8TT8M 




SUB 


SERTP2 


SER TEMP 2 




ADD 


8NE 


8NE 




STA 


SERTP3 


SER TEMP 3 




MRG 


SKEQP 


LIVE SKE + M8P 




STA* 


AI84 


A3 




ADD 


8NE 


8NE 




STA* 


A185 


A4 




ETR 


ADRMSk 


ADR MASK 




SUB 


8NE 


8NE 




MRG 


SKM8P 


LIVE SKM+ M6P 




STA* 


A188 


A7 




STX 


SERTP4 


SER TEMP 4 




IDA 


C8DE/2 


C8DE 




SKA 


XNTGLM 


INTEGER LIST MASK 




BRU 


A186 


A5 




LDX 


SERTPl 


SER TEMP 1 




IDA 


CTU2 


CENTRAL 2 




IDS 


CTll 


CENTRAL 1 


Ai82 


XAB 






A183 


EXU 


A183A 


(SIZE.l) 


A184 


EXU 


A184A 


<B8TT8M-*SIZE + 2) 




BRX 


A183 


A2 





XA8 








A185 


EXU 


AJ85A 




{B8TT8M.SIZE*3) 




BRX 


A182 




Al 




BRU 


A189 




Ag 


A186 


LDX 

LOB 


SERTPl 

8NES 




SER TEMP 1 




§KA 


LBLSTM 




LABEL LIST MASK 




LOB 


ABSATM 




ALL BUT SIGN AND TAG MASK 




LDA 


CTLH 




CENTRAL 2 


A187 


EXU 


A187A 




(SIZE-1) 


A188 


exu 


A188A 




<B8TT8M»SIZE+2) 




BRX 


AJ87 




A6 


A189 


CXA 










ETR 


ADRMSK 




ADR MASK 




SKG 


8NE 




8NE 




£RU 


XTF 




EXIT FALSE 




MRG 


ABAM 




AIL BUT ADR MASK 




STA 


SERTP5 




SER TEMP 5 




LDX 


SERTP4 




SER TEMP * 




LDA 


C8DE/2 




C8DE 




ETR 


CDMASK 




C8DE MASK 




ADD 


SERTP3 




SER TEMP 3 




ADD 


SERTP5 




SER TEMP 5 




SUB 


BASE/2 




BASE 




S8B 


W8RKLT 




W8RK LIST 




BRU 


EXITRU 




EXIT TRUE 


#B0P 


P8P 


88TT8M P8INTER 




B8P 


P8PD 


moooooB/ 


1/1 




B8PP8P SBRM 


NI8NESE 




N8 NEST ENTRY 




LDA 


C8DE/2 




C8DE 




ETR 


CDMASK 




C8DE MASK 




ADD 


B8TT8M # 2 




B8TT8M 




SUB 


BASE/2 




BASE 




ADD 


8NE 




0NE 




S88 


W8RKLT 




W8RK LIST 




BRU 


B8TEXT 




B8TT6M EXIT 


#Mce 


P8P 


M8VE CENTRAL 


8N w* 


C8PY CENTRAL T8 Q8TT8M 8F ADDRESSED LIST 


Mce 


P8PD 


1HOOOOOB/ 


1/1 




MC8P8P SBRM 


N8NESE 




N8 NEST ENTRY 



IDA 


CTU 


CENTRAL 1 


$9B 


0*2 





IDA 


CTU2 


CENTRAL 2 


S9B 


0*2 





BRU 


B9TEXT 


B8TT8M EXIT 


*S9F P8P 


SET 6N FLAG 116 




S9F P0PD 


116000000/1*1 




S9FP8P SBRM 


P8NTRY 


P9P ENTRY 


LDA* 


WRKB8T 


W8RK B8TT6M 


SKA 


0*2 





BRU 


EXITRU 


EXIT TRUE 


BRU 


XTF 


EXIT FALSE 


*S8T P9P 


SET 8N TEST 




S8T P9PD 


152000008*1,1 




S8TP9P SBRM 


P8NTRY 


P8P ENTRY 


CXA 






LSH 


12 


14 


LDB 


CH1MSK 


CHAR 1 MASK 


SKM# 


WRKB8T 


W8RK B9TT9M 


bru 


XTF 


EXIT FALSE 


BRU 


EXITRU 


EXIT TRUE 


*BNG PdP 


BRING 




BNG P9PD 


131000008/1*1 




BNGP8P SBRM 


P8NTRY 


P$P ENTRY 


FET 


0*2 





$WT 


wi*g 


Wl 


JRS 


PRPNTR 


PR9CESS PNTR 


LDA 


W0#2 


WO 


ADM 


ADRPT8 


ADDRESS P9INTED T8 


LDA* 


ADRPT9 


ADDRESS P9INTED T9 


STA* 


WRKB8T 


W8RK B9TT8M 


BRU 


EXIT 


EXIT 


•PR8CESS PNTR 


»« RETURN ABS ADDR 


8F LIST ELT GIVEN IT 


$PRPNTR IDA* 


WRKB9T 


W8RK 88TT8M 


MUL 


RSH18 


RIGHT SHIFTER 18 


ETR 


CH4MSK 


CHAR Ur MASK 


CAX 






UDA# 


WRKB9T 


W8RK B6TT9M 


ETR 


PNTRAM 


PNTR ADR MASK 



REL ADDR IN LIST 



ADO 


BASE#2 


BASE 


STA 


ADRPT8 


ADDRESS P8INTED T8 


BRU 


CLR1AE 


CLEAR 8NE AND EXIT 


PAGE 






♦ SNE P8P 


SET N8T EMPTY 




SNE P8PD 


X4300000Bj1#1 




SNEP8P SBRM 


TSTMTY 


TEST F8R EMPTY 


BRU 


EXJTRU 


EXIT TRUE 


*CNT P8P 


C8UNT 120 




CNT P8PQ 


12000000B*1,1 




CNTP8P SBRM 


N8NESE 


N8 NEST ENTRY 


LDA 


B9TT8Mj2 


B8TT8M 


SUB 


T8P#2 


T8P 


S8B 


WBRKLT 


W8RK LIST 


BRU 


89TEXT 


B8TT8M EXIT 


#FET Pd? 


FETCH HO 




FET P8PD 


liOOOOOOBil,! 




FETP8P SBRM 


N8NESE 


N8 NEST ENTRY 


LDA 


0#2 





S88 


W8RKLT 


W8RK LIST 


BRU 


B8TEXT 


B8TT8M EXIT 


*SWT P8P 


SWITCH ADDRESSED W8RD WITH W8RD 8N B8T 8 


SWT P8PD 


1UOOOOOB#1#1 




SWTP8P SBRM 


N8NESE 


N8 NEST ENTRY 


LDA 


Q>% 





XMA# 


WRKB8T 


W8RK B8TT8M 


STA 


0#2 


Q 


BRU 


B8TEXT 


B8TT8M EXIT 


#M8N P8P 


M8VE 8N# M8VE W8RD 


8N W#L» B8T TO LIST N 


#P8P UP THE 


WORK LIST 




M8N P8PD 


124000Q0B,l,i 




M8NP8P SBRM 


NQNESE 


N8 NEST ENTRY 


LDA* 


WRKBBT 


W8RK B9TT8M 


SKR 


WRKB8T 


W8RK B8TT8M 


S8B 


0/2 





8RU 


B8TEXT 


B8TT8M EXIT 


#M8F P8P M8VE 8FF -* M8VE W8RD 


8N BQTT9M 8F ADDRESSED 


M8F P8PD 


14200000B#iil 




M8FP8P SBRM 


TSTMTY 


TEST F8R EMPTY 



W8RK LIST 



NUMBER IN ADDR 



LIST T8 W,L. B8TT8M 



IDA* 

SKR 

§8B 

BRU 
#T9T P8P TAK 
T8T PdPQ 
T8TP8P SBRM 

MIN 

IDA* 

S6B 

BRU 
*LCF P8P 

LCF P9PD 
LCFP8P SBRM 

SUB 

BRU 
*LC8 P8P U8A 
LC8 P8PD 
UC8P8P SBRM 

ADD 
*LC8*UCF C8MM8 

LC8UCF XMA 

CAX 

LDP 

STD 

BRU 
♦TEST F8R EMPT 
TSTMTY HLT 

SBRM 

IDA 

ADD 

SKG 

SBRR 

IDA 

STA 

STA 

BRU 
#RSV P8P 
RSV P8PD 



B8TT8M 

B8TT8M 

W8RK LIST 

EXIT TRUE 

T8P 8F ADDRESSED 



B3TT8Mj2 

B8TT8M/2 

W8RKIT 

EXITRU 
E 9FF T8P •* W8RD 8N 

1220Q000B#1,1 

TSTMTY 

T8P/2 

T8P,2 

WORKIT 

EXITRU 

L8AD CENTRAL FR8M ,. 

H500000B#1#1 

TSTMTY TEST F8R EMPTY 

8NE 8NE 

LC8LCF LC9pLCF C8MM8N 

D CENTRAL 8FF -» UNSTACK 2 WRDS FR8M 

15700000B/lil 

TSTMTY TEST F8R EMPTY 

8NE 9NE 



LIST T8 B8TT8M 8F WtL. 



TEST F8R EMPTY 
T8P 
T8P 

W8RK LIST 
EXIT TRUE 
C8PY 2 WRDS FR8M LIST M T8 CENTRAL 



LIST Mi PUT IN CENTRAL 



N 



T8P,2 

l>2 
CTL1 

EXITRU 

LTSTMT 
P8NTRY 
T8P>2 

8NE 

B8TT8M # 2 
TSTMTY 

STARTi2 
T8P/2 
B6TT0M^2 
XTF 

SERESERVE 
11700000B, 



T8P 



i 



117 
1/1 



CENTRAL 1 
EXIT TRUE 



P8P ENTRY 

T8P 

8NE 

B8TT8M 

TEST F8R EMPTY 

START 

T8P 

B8TT8M 

EXIT FALSE 



RSVP8P SBRM 


N8NESE 


N8 NEST ENTRY 


IDA 


START, 2 


START 


SUB 


BASE, 2 


BASE 


S8B 


0#2 





L.DA 


T8P,2 


T8P 


SUB 


BASEi2 


BASE 


S8B 


0*2 





LDA 


B8TT8M,2 


B8TT8M 


STA 


STARTS 


START 


STA 


T8P,2 


T9P 


BRU 


B8TEXT 


B8TT8M EXIT 


*RLS P8P 


RELEASE i2i 




RLS P8PD 


12100000B,1,1 




RLSP8P SBRM 


P8NTRY 


P8P ENTRY 


♦release: list* 


LIST NUMBER IN X 




RELIST LDA 


START, 2 


START 


STA 


T8P,2 


T8P 


STA 


B8TT8M,2 


B8TT8M 


SKG 


BA§E*2 


BASE 


BRU 


EXIT 


EXIT 


LDA* 


START, 2 


START 


ADD 


BA$E#2 


BASE 


STA 


T8P,2 


T8P 


SKR 


START, 2 


START 


LDA* 


START, 2 


START 


ADD 


BASE, 2 


BASE 


SKR 


START, 2 


START 


LDB 


START, 2 


START 


STA 


START, 2 


5TART 


STB 


B8TT8M,2 


B8TT6M 


$RU 


EXIT 


EXIT 


PAGE 






♦FJP P8P 


FLESH AND INHERIT 


PLEX 


FJP P8PD 


146000008,1,1 




FIPP8P CLA 






SBRM 


FFF 


FIOFAC-FIP 


LDA 


M8FCPY 


MERG 8F C8PY 


MRG* 


WRKB9T 


W8RK B8TT8M 


STA* 


WRKB8T 


W8RK B8TT8M 



BRU 
*FAC P8P 

FAC P8PD 
FACP8P CLA 
BRU 
*FIC PQP 
FIC P8PD 
FICP8P LDA 

• FIOFAC C8MM8 
FFC8M SBRM 

8RU 
*FIOFAC*FIP 

FFF HLT 

SBRM 

STA 

STA 

PU8 

STA 

STA 
A190 LDA 

SUB 

CAX 

LDA 

S8B 

ETR 

MRG 

STA 

SKR 

BRU 

LDA 

SUB 
STA 
LDA* 
ETR 
MRG* 
STA* 
SKR 
SBRR 
*PL8 P8P 



N 



EXIT 

FLESH AND C8UNT 

HQ00000B#1,1 

FFC8M 

FLESH INHERIT AND 
1370Q0Q0B,1,1 
M8DEMS 
I 

FFF 
EXIT 

LFFF 

P8NTRY 

FFFTPl 

M8FCPY 

Q#2 

CTPLEX 

CTC8PY 

WRKBBT 

CTC8PY 

o#a 

PLEXLS 

M80EMS 

M8FCPY 

M8FCPY 

CTC8PY 

A190 

WRKB8T 

CTPLEX 

WRKB8T 

WRKB8T 

FFFTP1 

PLEXBT 

WRKB8T 

PLEXBT 

FFF 

PLEX 8PEN 



EXIT 



FIOFAC C0MM8N 

C8UNT 

M8QE MASK 

FIOFAOFIP 
EXIT 



P8P ENTRY 

FIOFAOFJP TEMP 1 
MERQ 8F C8PY 


C8UNT 8F PLEX 
C8UNT 8F C8PY 
W8RK B8TT8M 
C8UNT 8F C8PY 



PLEX LIST 

M8DE MASK 

MERG 8F C8PY 

MERG 8F C8PY 

C8UNT 8F C8PY 

Al 

W8RK B8TT8M 

C8UNT 9F PLEX 

WORK B9TT8M 

W8RK B8TT8M 

FIC-FAOFIP TEMP 1 

PLEX B8TT8M 

W8RK B8TT8M 

PLEX B8TT8M 

FIC*FAC"FIP 



plb 


P8PD 


13400000B/U1 




PL8P8P 


SBRM 
CXA 


N8NESE 


NB NEST ENTRY 




ISH 


12 


H 




ETR 


CDMASK 


C8DE MASK 




ADD 


PLEXBT 


PLEX B8TT8M 




SUB 


PLXBAS 


PLEX BASE 




ADD 


8NE 


8NE 




S88 


WBRKLT 


W8RK LIST 




CXA 








ETR 


L8W2BM 


L8W 2 BITS MASK 




S8B 


PLEXLS 


PLEX LIST 




BRU 


88TEXT 


B8TT8M EXIT 


*PUl P8P 


PULL 130 




PUt 


P8PD 


13000000Bil,l 




PUIP6P 


SBRM 


P8NTRY 


PQP ENTRY 




STX 


TGTLCY 


TARGET LIST BF C8PY 




LDA* 


WRKB8T 


WBRK B8TT6M 




SKR 


WRKB8T 


WBRK B8TT8M 




ETR 


PNTRAM 


PNTR ADR MASK 




STA 


ST8CXX 


S8URCE T8P 8F C8PY 




ADD 


PLXBAS 


PLEX BASE 




CAX 








LDA 


0*2 







STA 


CTC8PY 


C8UNT BF C8PY 




BRU 


A192 


A2 


A191 


MIN 


ST8CXX 


S8URCE T8P BF C8PY 




LDA 


ST8CXX 


S8URCE T8P BF C8PY 




ADD 


PLXBAS 


PLEX BASE 




CAX 








LDA 


0*2 







S8B# 


TGTLCY 


TARGET LIST 8F C8PY 


A192 


SKR 


CTC9PY 


C8UNT 9F C8PY 




BRU 


A191 


Al 




BRU 


EXIT 


EXIT 


♦ADR P6P 


ADDRESS 




ADR 


P8PD 


147000008/1/1 




A0RP8P 


SBRM 
CXA 


P8NTRY 


P§P ENTRY 



S8B 

BRU 
•CAR P8P 
CAR P8PD 
CARP8P LDA* 

SKR 

SBRM 

LDX 
BRU 
*C8F P8P 
C8F P0PD 
C8FP8P SBRM 
STX 
SNE* 
JAP 
RSV* 
CAR* 
BRU 

*cac pep 

CAC P8PD 
CACP8P LDA 

SBRM 

BRU 
•CIC PSP 

CIC P8PD 

CJCP8P LDA 
SBRM 
LDA 
MRG* 
ST A* 

*CJC»CAC C8UNT 

CICACT LDA* 

ETR 

ADD 
STA 

LDA 

ADM* 

BRU 
♦C8PY LJST 



W8RKLT 

EXIT 

C8PY AND RELEASE 

133000008/1,1 

WRKB8T 

WRKB9T 

CPYLST 

SLSTCY 

RELIST 

C8PY FILE 

15600000B/1/1 

P8NTRY 

C8FTP1 

C8FTP1 

CLR1EF 

WO/2 

C8FTP1 

EXJTRU 

C8PY AND C9UNT 

135000008/1/1 

LHPLIN 

CPYLST 

CICACT 

C8PY INHERIT AND 

13600000B/1,! 

LHPLIN 

CPYLST 

M8FCPY 

WRKBOT 

WRKB8T 

WRKB8T 
PNTRAM 

PLXBAS 
ADRPT8 
CTC8PY 
ADRPT8 
EXIT 



W8RK LIST 
EXIT 



W8RK B8TT8M 

W8RK B8TT8M 

C8PY LIST 

SOURCE LIST 8F C8PY 

RELEASE LIST 



P8P ENTRY 

C9F TEMP 1 

C9F TEMP 1 

CLEAR 8NE EXIT FALSE 

WO 

C8F TEMP 1 

EXIT TRUE 



LIVE HLT PLEX 
C8PY LIST 
CIC*CAC C8UNT 
C8UNT 



LIVE 

C8PY 
MERG 

W8RK 
W8RK 



HLT PLEX 
LIST 
8F C8PY 
B8TT8M 
B8TT8M 



LIST INST 



LIST INST 



W8RK B8TT8M 
PNTR ADR MASK 
PLEX BASE 

ADDRESS P8INTED T0 
C8UNT 8F C8PY 
ADDRESS P8INTED T8 

EXIT 



CPYUST HIT 

SBRM 

STA 
SIX 

CIA 
STA 
A193 STA 
T8T# 

JAF 

MQN* 

MIN 

ETR 

MRG 

BRU 

AJ94 SBRR 
PAGE 

*E8S P6P 

E6S P9PD 

E8SP8P SBRM 
LDA# 
E8R 
STA 
BRU 

*S8U PQP 

S8L P8PD 

S8UP6P SBRM 
STD 
SKN 
CLAB 
SKN 
SDP 
ADP 
SKA 

BRU 
LDP 

BRU 
*LDP P8P 
LDP P8PD 

UDPP8P SBRM 



UCPYLS 
P8NTRY 

TGTLCY 
SLSTCY 

CTC8PY 

M8FCPY 

SLSTCY 

A194 

TGTLCY 

CTC8PY 

M8DEMS 

M8PCPY 

A193 

CPYLST 



P8P ENTRY 

TARGET LIST 8F C8PY 

S8URCE LIST 8F C8PY 



C8UNT 9F C6PY 

MERG 8F COPY 

S8URCE LIST 8F 

A? 

TARGET LIST 8F 

C8UNT OF C8PY 

M80E MASK 

MERG 8F C8PY 

Al 

C8PY LIST 



C8PY 
C8PY 



EXCLUSIVE 8R T6 ST8RAGE 

150000008,1,1 

P8NTRY P8P ENTRY 

WRKB8T W8RK B8TT8M 

o#a o 

0,2 

CLR1AE CLEAR 8NE AND EXIT 

SET 8UT 8F LIMIT 115 

115000C0B,1,1 

P8NTRY P8P ENTRY 

F8LTPA F8L TEMp A 

F8LTPA F8L TEMP A 



F8LTPA 
F8LTPA 
0,2 
SIGNBT 

EXITRU 

F8LTPA 

XTF 

L8AD D8UBLE 125 

125000005/ 1,1 

N8NESE 



F8L TEMP A 

F8L TEMP A 



SIGN BIT 

EXIT TRUE 

F8L TEMP A 

EXIT FALSE 



N8 NEST ENTRY 



UDA 
LDB 

BRU 
*STD P8P 
STD P0PD 
STDP8P SBRM 
5TA 
ST3 

sru 

#ADP P8P 
ADP P8PD 
ADPP8P SBRM 
XAB 
ADD 
XAB 
ADC 

bru 

#SDP P8P 

SOP P9PD 

SDPP8P SBRM 

XAB 

SUB 
XAB 

sue 

BRU 
PAGE 
*S8C P8P 

sec pePD 

S6CP8P SBRM 

SKA 
BRU 
BRU 

#CSF P8P 

CSF P8PD 

CSFPaP SBRM 
CSA 
JAT 
BRU 

♦CSA P8P 



0#2 
1#2 

INDXEX 

ST8RE Q9UBLE 107 

10700O00B#l#l 

N8NESE 

Of 2 
1#2 
INDXEX 

ADD D9UBLE PRECISI9N 

154000005,1,1 

N9NESE 

1#2 




I 
INDEX EXIT 



N8 NEST ENTRY 



1 

INDEX EXIT 



N9 NEST ENTRY 

i 





0*2 

INDXEX INDEX EXIT 

ST8RE D8UBLE PRECISION 

15300000B,1,1 

N9NESE 



1#2 

0*2 
INDXEX 



N8 NEST ENTRY 

X 



INDEX EXIT 



READY SCAN CHAR 



EXIT TRUE 

EXIT FALSE 



SET 8N CHARACTER 

1620000QB,1,1 

RDYSCH 

0#2 

EXITRU 

XTF 

CHAR SCAN 9R FAIL 101 

10100000B/1/1 

P8NTRY P9P ENTRY 

0/2 

EXIT EXIT 

ILSYFA ILLEGAL SYNTAX FAIL 

CHAR SCAN 8R ALTERNATE 1Q2 



CSA P8PD 


102000Q0B/1/1 






CSAP9P SBRM 


RDYSCH 


READY SCAN 


CHAR 


SKE 


0/ 2 







BRU 


XTF 


EXIT FALSE 




CLA 








STA 


CRNTCH 


CRRNT CHAR 




BRU 


EXJTRU 


EXIT TRUE 




*PRC P9P 


PRINT CHARACTER 






PRC P8PD 


16000000B/1/1 






PRCP8P SBRM 


P9NTRY 


P8P ENTRY 




LDB 


0/2 







CLA 








ISM 


6 


6 




SBRM 


PRINT 


PRINT 




BRU 


EXIT 


EXIT 




#PRQ P8P 


PRINT QU9TE 






PRQ P9PD 


16100Q00B#i,i 






PRQP8P SBRM 


P8NTRY 


P8P £NTRY 




SBRM 


INITQS 


INITIALIZE 


QU8TE SCAN 


A195 SBRM 


QSNEXC 


QUBTE SCAN 


NEXT CHAR 


BRU 


EXIT 


EXIT 




RSH 


18 


22 




SBRM 


PRINT 


PRINT 




BRU 


AJ95 


A* 




*QSF PQP 


QU9TE SCAN 9F FAIL 






QSF P8PD 


10600000B#1,1 






QSFP8P SBRM 


RDYSCH 


READY SCAN 


CHAR 


SBRM 


INITQS 


INITIALIZE 


QU8TE SCAN 


A196 SBRM 


QSNEXC 


QU8TE SCAN 


NEXT CHAR 


BRU 


EXIT 


EXIT 




SKE 


CRNTCH 


CRRNT CHAR 




BRU 


FAIL 


FAIL 




SBRM 


NXACCH 


NEXT ACTIVE 


U H A K 


BRU 


A196 


Ai 




*SeB P8P 


ST8RE 8N B9TT8M 






S8B P8PD 


15100000B/1/1 






S8BP8P STA 


INCAR 


JNC8MING A 


REGISTER 


SIX 


INCXR 


INC8MING X 


REGISTER 


EAX* 











LDA 


88TT8M # 2 




B8TT8M 


SKE 


LIMIT, 2 




LIMIT 


BRU 


A228 




Al 


SBRM 


REASGM 


REASSIGN MEM8RY •» THIS LI 


EAX 


0,2 







A228 UDA 


INCAR 




INC8MING A REGISTER 


MIN 


B8TT8M#2 




B8TT8M 


STA* 


B8TT8M # 2 




B8TT8M 


LDX 


INCXR 




INCOMING X REGISTER 


8RR 










*JAF P8P 


JUMP ANSWER 


FALSE 




JAF P8PD 


10400000B, It 


a • 




JAFP8P STA 


XITTP1 




EXIT TEMP 1 


CLA 








BRU 


JATAFC 




JAT-JAF C8MM8N 


*jat pep 


JUMP ANSWER 


TRUE 




JAT P8PD 


103000Q0B/1j 


.1 




JATP8P STA 


XITTP1 




EXIT TEMP 1 


IDA 


XTRUEM 




EXIT TRUE MASK 


*JAT»JAF C8MM8N 






JATAFC E8R* 


EXJB9T 




EXIT B8TT8M 


SKA 


XTRUEM 




EXIT TRUE MASK 


BRU 


XT8NZ8 




EXIT 9N ZER8 


EAX* 










BRU 


JJJUMP 




JRS«»JAT*JAF JUMP 


*JRS P8P 


JUMP RECURSIVELY T8 


SUBRU 


JRS P8PD 


11200000B#1j 


• i 




JRSP8P SBRM 


P8NTRY 




P8P ENTRY 


*JRS»JAT»JAF 


JUMP 






JJJUMP STX 










SKR 










BRU 


XT8N28 




EXIT 8N ZER8 


• P8P LINK INITIALIZATI6N 






$P8PBRU BRU 


BAMP6P 






BRU 


CSFP6P 






BRU 


CSAP8P 






BRU 


JATP8P 






BRU 


JAFP6P 






BRU 


TRYP8P 







NEEDS M8RE SPACE 



BRU 


QSFP8P 


BRU 


STDPeP 


BRU 


FETP8P 


BRU 


SWTP6P 


BRU 


URSP9P 


BRU 


BjFpep 


BRU 


MC8P8P 


BRU 


S8LP9P 


BRU 


S8FP8P 


BRU 


R3VP8P 


BRU 


CNTP8P 


BRU 


RUSP8P 


BRU 


T9TP8P 


BRU 


FJLP8P 


BRU 


M8NP8P 


BRU 


LDPP8P 


BRU 


BLFP8P 


BRU 


SAUP8P 


BRU 


PUIP8P 


BRU 


3NGP8P 


BRU 


BAFP8P 


BRU 


CARP8P 


BRU 


P18P8P 


BRU 


CACP8P 


BRU 


CJCP8P 


BRU 


FICP8P 


BRU 


FACP8P 


BRU 


B8PP0P 


BRU 


M8FP8P 


BRU 


SNEP8P 


BRU 


SERP8P 


BRU 


LCFP8P 


BRU 


FIPP8P 


BRU 


ADRP9P 


BRU 


E8SP8P 


BRU 


S8BP8P 


BRU 


S8TP8P 


BRU 


SDPP8P 


BRU 


ADPP8P 



BRU RECP0P 

BRU C0FP8P 

BRU LC9P6P 

BRU PRCP0P 

BRU PRQP0P 

BRU S9CP8P 

BRU BJMP8P 

BRU FEXP8P 

©RU ICTP0P 

BSS 10 



$PBRU£ ZR9 
END 



6Ci 
# 

« 



1DENT 7»X8 R«Bt ST8RAGE# COMPILER PART 6 (LAST) 



BFS MACR9 Of 

DEC MACR8 Ql 

©CT MACR9 DJ 

BEQ MACR9 D 

BNE MACR9 D 

NCARDS EQU 9 

IBSIZE EQU 73*NCARDS/* 

BAM 9PD lOOOOOOOBil 

CSr 8PD iOlOOOQOB^l 

CSA ePO i0200000Bil 

JAT 8PD 10300000B>1 

JAF 8PD 10400000B# 1 

TRY 8PD 10500000B/1 

QSF 8PD 10600000B/1 

STD &PD |0700000B#1 

F£T 8PD UOOOOOOBU 

SWT &PD 11100000B#i 

JR$ 9PD U200000B/1 

BJF 8PQ U300000B#1 

MC8 9PD 1U00000B#X 

S8L 9PD 11500000B/1 

S8F 9PD 11600000B*1 

RSV §PQ 11700000B/1 

CNT 8PD 12000000B/X 

RLS 9PQ 12100000BU 

T8T 8PD 12200000B/1 

FJL 8PD 123000006,1 

M8N 8PD 124000008*1 

LDP 8PD 125000008,1 

BLF 8P0 12600000B#1 

SAL 9PD 127000008*1 

PUL 9PD 130000008#1 

BNG 8PD 13100000B#1 

BAF 9PD 132000008*1 



SKN DU>> BRU D(2); ENDM 

DATA 0(1) J ENDM 

DATA D(l)iBJ ENDM 

BRU IF EQUAL* SKE DC 1)1 BRU 

BRU IF N8T EQUALi SKE D(1)J 
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t 
1 
X 
X 
1 
1 

1 
1 

1 

1 
X 
X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



**2J BRU Qtan ENDM 
BRU D(2); ENDM 



CAR 


0PD 


133000008/ 1,1 




Pie 


8PD 


13400000B/1/1 




CAC 


9PD 


13500000B/1/1 




CIC 


epo 


136000008/1,1 




FIC 


epo 


13700000B/1/1 




FAC 


©PD 


14000000B/1/1 




B3P 


epo 


1410Q000B/1/1 




M8F 


epo 


142000QOB/1,! 




SNE 


epo 


143000008,1,1 




SER 


epo 


144000006,1,1 




LCF 


9PD 


1450Q000B,1,1 




FJP 


9PD 


146000009/ 1*1 




ADR 


epo 


147000008/1/1 




Ees 


8PQ 


150000008/1,1 




seB 


QPD 


15100000B/1/1 




S9T 


epo 


15200000B/1,! 




SQP 


epo 


15300000B/1/1 




ADP 


9P0 


154000008/ 1/1 




REC 


epo 


155000008,1,1 




ceF 


8PD 


15600000B/1/1 




ice 


9PD 


15700000B/1/1 




PRC 


QPD 


160000008,1,1 




PRQ 


8PD 


161000006/1,1 




sec 


9PD 


162000008,1,1 




BIM 


ePD 


163000008,1,1 




FEX 


epo 


16400000B,l,i 




•INITIALIZE 


QU9TE SCAN 




$INITQS HLT 


LINITQ 






STX 


QSFWAD 


QSF W9RD ADR 




IDA 


TW9 






STA 


QSFCTR 


QSF C8UNTER 




IDA* 


QSFWAD 


QSF W8RD ADR 




STA 


QSFWRD 


QSF W9RD 


A197 


SBRM 


QSNEXC 


QU9TE SCAN NEXT CHAR 




SBRR 


INITQS 


INITIALIZE GU8TE SCAN 




BRU 


A197 


Al 


♦GU6TE 


SCAN 


NEXT CHAR 




$gsn£xc hut 


IQSNEX 






IDA 


QSFWRD 


QSF W9RD 



IDS 


577600000B 




SKM 


f f •'♦2000Q0B 


PERI8D 


MIN* 


QSNEXC 


QU8TE SCAN NEXT CHAR 


ABC 






ISM 


8 




STB 


QSFWRD 


QSF W8RD 


CAX 






SKR 


QSFCTR 


QSF C8UNTER 


BRU 


A198 


Al 


MIN 


QSFWAD 


QSF W8RD ADR 


LDA* 


QSFWAD 


QSF W9RD ADR 


STA 


QSFWRD 


QSF W8RD 


LDA 


TW8 




STA 


QSFCTR 


QSF C8UNTER 


A198 IDA 


CHTTBLi2 


CHAR TRANSL TABLE 


SBRR 


QSNEXC 


QU8TE SCAN NEXT CHAR 


♦PRINT 5 DEC 






$PR5DEC FET 


FIVE 


FIVE 


FET 


ZER8 


ZER8 


AJ99 LDA 


W2#2 


W2 


ETR 


FIVMSK 


FIVE DEC MASK 


MUL 


TEN 


TEN 


DIV 


8NEMIL 


8NE MILLI8N 


STB 


W2>2 


W2 


CAX 






MRG* 


WRK88T 


W8RK B8TT8M 


STA* 


WRKB8T 


W8RK B8TT8M 


EAX 


203/2 


ZER8 STARTS AT 20 


SKG 


2ER8 


ZER8 


CLX 




SPACE 


PRC 


CHTTBL^2 


CHAR TRANSL, TABLE 


SKR 


Wl#2 


wi 


BRU 


A199 


Al 


PRC 


SPACE 


SPACE 


PRC 


SPACE 


SPACE 


8RU 


CLR3AE 


CLEAR THREE AND EXIT 


♦PRINT 0CTAL 






*P8CTAL BRU 


A2Q1 


Al 


A200 CLA 









LD8 


Wl#2 




wi 






LSH 


3 




3 






ST3 


^\*Z 




Wl 






CAX 












EAX 


2qB*2 




LIFT l 


NUMBER BASE F9R 




PRC 


CHTTBL# 


2 ' 


CHAR ' 


TRANSL TABLE 


A201 


SKR 


W0*2 




WO 






BRU 


A200 




A2 






BRU 


CIR2AE 




CLEAR 


TW9 AND EXIT 


♦PRINT 


> 6 BIT CHAR RT 


JUSTIFIED 


IN A# X ! 


SAVED 


$PRINT 


HIT 

CLB 
RSN 
CBA 


UPRINT 
6 










MINI 


CHTSIN 




CHARS 


THIS LINE 




SKE 


CAR8U8 




CAR RETURN ZERS L8W 




BRU 


A2Q4 




A ^ 




AS01A 


IDA 

cie 


§155B 
C8UTF 










BFS 


FTTY9N, 


A201B 








IDB 


C6UTF 










SKB 


#77777776B 










CIO 


fl 








A201B 


EGU 


* 








A2Q2A 


MIN 


LINETP 




LINES 


THIS PAGE 




LDA 


LINETP 




LINES 


THIS PAGE 




SKE 


LINEPP 




LINES 


PER PAGE 




BRU 


A203 




A5 






LDA 


ONE 










STA 


LINETP 

1TN~~~ 




LINES 


JTHIS PAGE 






Y EN - - 






STA 


PRTTP1 




PRINT 


TEMP 1 


A202 


LDA 


LF 




LINE f 


"EED 




CIS 


C9UTF 










BFS 


FTTYSNi 


A203A 








IDB 


C9UTF 










SKB 


^777777768 










cie 


*l 








A203A 


SKR 


PRTTP1 




PRINT 


TEMP 1 



ASCII CdQ£ 





8RU 


A2Q2 


Aaos 


CU 






STA 


CHTSUN 




SBRR 


PRINT 


A20^ 


USH 


6 




CIO 


C8UTF 




BFS 


FTTY8N/A20AA 




LDB C6UTF 




SKB ?77777776B 




cia 


■ 1 


A204A 


SBRR 


PRINT 


♦PUNCH 


FINISH 




$PCHFIN MIN 


CKSMCT 


♦PUNCH 


C8DE 




PCHC8D 


EXT 


# 


PCHC8D 


EQU 


* 


A205 


SNE 


C8DLST 




JAF 


EXIT 




SKN 


CKSMCT 




8RU 


A2Q6 




MIN 


B18KCT 




IDA 


8L8KCT 


* 


WIO 


9UTFUE 




IDA 


B18KCT 




STA 


CKSUH 




UDA 


8L8KUG 




STA 


CKSMCT 


A2Q6 


T8T 


C8DLST 




JAF 


A205 




ADD 


CKSUM 




ADC 


ZERO 




STA 


CKSUM 




LDA» 


WRKB8T 




WIS 


8UTFLE 




SKR 


WRKB8T 




SKR 


CKSMCT 




BRU 


A206 




IDA 


CKSUM 



A6 



CHARS THIS LINE 



CMMD 8UTPUT FILE 



PRINT 



CHECK SUM CNT 



C8DE LIST 

EXIT 

CHECK SUM CNT 

Al 

BLOCK CNT 

8L8CK CNT 

BL8CK CNT 
CHECK SUM 

BL8CK LENGTH 
CHECK SUM CNT 
C8DE LIST 

CHECK SUM 

ZER8 

CHECK SUM 

W8RK B9TT6M 

BINARY 8UTPUT FILE 

W8RK B8TT8M 

CHECK SUM CNT 

Al 

CHECK SUM 



* 


wie 


9UTFLE 




BRU 


A205 


*REaDY 


SCAN 


CHAR 


SRDYSCH HUT 


LRDYSC 




S3RM 


P9NTRY 




IDA 


CRNTCH 




SKE 


ZER8 




SBRR 


RDYSCH 




STX 


RDYCTl 




SBRM 


NXACCH 




LDX 


RDYCTl 




SBRR 


RDYSCH 


♦ NEXT 


ACTIVE 


CHAR 


$NXACCH HIT 


LNXACC 




LDA 


INCHCT 




STA 


LACHCT 




SBRM 


NXJNCH 




STA 


FRSTCH 




BRU 


A2Q8A 


A208 


SBRM 


NXINCH 


A208A 


SKE 


SPACE 




BRU 


A209 




UDA 


SCANMq 




SKE 


UBUKFG 




BRU 


A208 




IDA 


SPACE 


A209 


SKE 


CARET 




SRU 


A215 




SKN 


E81TRQ 




BRU 


A209A 




LDS 


INCHCT 




ST8 


E9LTRG 


A209A 


SKN 


IASTST 




BRU 


A215 




IDA 


INCHCT 




STA 


ACHTP1 




MJN 


LINECT 


A211 


SBRM 


NXINCH 




SKA 


CARRFG 



BINARY 8UTPUT FILE 



P9P ENTRY 

CRRNT CHAR 

ZER8 

READY SCAN CHAR 

READY CHAR TEMP 1 

NEXT ACTIVE CHAR 

READY CHAR TEMP 1 

READY SCAN CHAR 



INPUT CHAR CNT 

LAST ACTIVE CHAR CNT 

NEXT INPUT CHAR 

FIRST CHAR READ BY NXACCH 

NEXT INPUT CHAR 

SPACE 

A7 

SCAN M9DE 

USE BLANKS FLAG 

Al 

SPACE 

CAR RETURN 

A9 

END 8F LINE TRIGGER 

INPUT CHAR CNT 

END 9F LINE TRIGGER 

LAST STA TRIGGER 

A9 

INPUT CHAR CNT 

ACTIVE CHAR TEMP 1 

LINE CNT 

NEXT INPUT CHAR 

CAR RETURN FLAG 





8RU 


A211 




LDX 


F9UR 




STX 


ACHTP2 


A213 


SKE 


SPACE 




8RU 


A2U 




SBRM 


NXINCH 




SKR 


ACHTP2 




BRU 


A213 




SKA 


CNCHFG 




8RU 


A208 


A214 


LDA 


ACHTP1 




STA 


INCHCT 




UDA 


CARET 




STA 


CRNTCH 


A215 


LDX 


WRKB9T 




SBRR 


NXACCH 




PAGE 




#NEXT 


INPUT 


CHAR 


$NXJNCH HLT 


LNXJNC 


A216 


LDA 


INCHCT 




SKE 


JNSTCT 




BRU 


A218 


A217 


SBRM 


READ 




8RU 


eVFAlL 




LDA 


JNSTCT 




SKG 


INCHCT 




BRU 


A217 


A218 


MIN 


INCHCT 




LDA 


THREE 




SUB 


INCHCT 




ETR 


THREE 




STA 


INCHU 




LDA 


INCHCT 




RSH 


1 




ABC 






DIV 


NPBFLG 




CBX 






LDA 


NP3uFF,2 




LDX 


INCHT1 



AS 

FSUR 

ACTIVE CHAR TEMP 2 

SPACE 

A5 

NEXT INPUT CHAR 

ACTIVE CHAR TEMP 2 

A6 

C9NTINUATI9N CHAR FLAG 

Al 

ACTIVE CHAR TEMP 1 

INPUT CHAR CNT 

CAR RETURN 

CRRNT CHAR 

W9RK B9TT8M 

NEXT ACTIVE CHAR 



CHAR CNT 
ST9P CNT 



INPUT 
INPUT 
A3 

READ 

9VERFL8W FAIL 
INPUT ST9P CNT 
CHAR 



INPUT 
A4 

INPUT 
THREE 
INPUT 
THREE 
INPUT 

INPUT 
1 



CNT 



CHAR CNT 
CHAR CNT 



CHAR 
CHAR 



TEMP 1 
CNT 



INPUT BUFF LENGTH 

INPUT BUFFER 
INPUT CHAR TEMP 1 



A819 



*READ 
$READ 



A22^ 



A22Q 



A222 



EXU 

ETR 

CAX 

IDA 

STA 

IDX 

SBRR 

PAGE 

HIT 

IDA 

ADD 

$KS 

SBRR 

MJN* 

CIA 

SKR 

BRU 

IDX 

SBRM 
DATA 
DATA 

DATA 

DATA 

DATA 

SKG 

SKG 

BRU 

ETR 

CAX 

IDA 

STA 

SBRM 

MJN 

IDA 

ADD 

SKG 

SBRR 



CHARST#2 
CH4MSK 

CHTTBli2 
CRNTCH 
WRKB9T 
NXINCH 



LREAD 
RDSTCT 
NBCHCT 

RDCHCT 

READ 

READ 

READSC 
A222 

infu:..,.^ 

8NE 

ACB 

15500000B+A221 

13700000B+A225 

14400000B+A225 

13500000B+A223 

9BIT+**1 

CH4MSK 

ONES 

A220 

CH^MSK 

CHTTBL#2 

WIMCH 

NTERAC 

INSTCT 

RDSTCT 

NBCH 

RDCHCT 

READ 



CHAR SHIFTER TABLE 
CHAR 4 MASK 

CHAR TRANSL TABLE 
CRRNT CHAR 

W8RK B8TT8M 
NEXT INPUT CHAR 



READ ST8P CNT 
IN BUFF CHAR CNT 
READ CHAR CNT 
READ 
READ 

READ SPACE C8UNT 

REA.D CHAR FR8M INPUT FILE 

ACCEPT CHAR AND BRANCH 

ASCII CR 

ASCII END 8F FILE 

END 8F TEXT (ALS8 AN E8F } 
MULTIPLE SPACE 



DISCARD 
CHAR 4 MASK 

CHAR TRANSL TABLE 

WIMED CHAR 

ENTER A CHAR 

INPUT ST8P CNT 

READ ST8P CNT 

IN BUFF CHAR CNT*1 

READ CHAR CNT 



BRU 


A224 


A221 IDA 


ICR 


BRU 


A222 


A223 CIO 


INFUE 


STA 


READSC 


BRU 


A224 


A225 SKR 


FE8F 


SBRR 


READ 


SBRR 


READ 


$NPBFLG ZR8 


IBSIZE 


$NBCHCT ZR8 


MIBSIZE 


$NBCH ZR8 


4MBSIZE-1 


♦ENTER A CHAR 




$NTERAC HIT 


LNTERA 


A226 MIN 


RDCHCT 


LDA 


RDCHCT 


ETR 


THREE 


STA 


ECHTP1 


IDA 


RDCHCT 


RSN 


X 


ABC 




PIV 


NPBFLG 


CBX 




STB 


ECHTP2 


LDA 


NPBUFF # 2 


LDX 


ECHTP1 


ETR 


N8TCMT/2 


STA 


ECHTP1 


LDA 


WIMCH 


EXU 


CHARST/2 


ETR 


CHMTBL/2 


MRQ 


echtp; 


LDX 


ECHTP2 


STA 


NPBUFF#2 


SBRR 


NTERAC 


#N8 NEST ENTRY 




*N8NESE NUT 


LN8NES 


STX 


NNTP1 


XMA 






INTERNAL RT JUST CR 

READ CHAR FR8M INPUT FILE 
READ SPACE C8UNT 

FLAG END 8F FILE READ 



INPUT BUFFER 
INPUT BUFFER 
INPUT BUFFER 



LENGTH 
CHAR CNT 
CHAR CNT-ri 



READ CHAR CNT 

READ CHAR CNT 

THREE 

ENTER CHAR TEMP 1 

READ CHAR CNT 

INPUT BUFF LENGTH 

ENTER CHAR TEMP 2 
INPUT BUFFER 
ENTER CHAR TEMP 1 
N8T CHAR MASK TABLE 
ENTER CHAR TEMP \ 
WIMED CHAR 
CHAR SHJFTER TABLE 
CHAR MASK TABLE 
ENTER CHAR TEMP 1 
ENTER CHAR TEMP 2 
INPUT BUFFER 
ENTER A. CHAR 



NN TEMP l 






STA 


NNTP2 




XMA 


Q 




EAX* 







SBRR 


N6NESE 


#P8P ENTRY 




$P8NTRY HLT 


LP6NTR 




STA 


XITTP1 




LDA 


EXIB8T 




SKE 


XLIMJT 




BRU 


A223 




SBRM 


REASGM 




EAX 


XITLS 


A229 


LDA 







ETR 


ADRMSK 




MIN 


EXIB8T 




STA* 


EX1B9T 




IDA 


XITTP1 


DEBUG 


NBP 







STA 


XITTP1 




CXA 






ETR 


ADRMSK 




SKQ 


NLIST 




SKG 


FLSBAS 




BRU 


A230 




LDX 


WRKB8T 


A23Q 


EAX* 
CXA 







ETR 


ADRMSK 




CAX 






LDA 


XITTP1 




SBRR 


P8NTRY 




PAGE 




•REASSIGN MEM8RY 


$REASG 


M HUT 


L^EASG 




STX 


RSGNT3 




LDA 


FLSLMT 




SUB 


FLSCBT 




SKG 


8NE 




BRU 


PRESSM 



NN TEMP 2 



Q 

N8 NEST ENTRY 



EXIT TEMP 1 
EXIT B8TT8M 
EXIT LIMIT 

pi G, 

REASSIGN MEM8RY 
EXIT LIST 



ADR MASK 
EXJT B9TT8M 
EXIT B8TT8M 
EXIT TEMP 1 
(BRM DEBUG) 
EXIT TEMP 1 

ADR MASK 

END 8F LISTS 

FL SCALAR BASE, 

Al 

W8RK B8TT8M 



ADR MASK 

EXIT TEMP 1 
P8P ENTRY 



REASSIGN TEMP 3 

Ft SCALAR LIMIT 

FL SCALAR 38TT8M 

8NE 

PRESS MEM8RY 



START 8F LISTS 



♦ M8VE LISTS UP 



$MVUST 


LQX 


RSGNT3 




MIN* 


REASGM 




exu* 


LREASG 




CXA 






ETR 


ADRMSK 




STA 


RSGNT1 




IDA 


8NE 




BRU 


A235 


A231 


STA 
CAX 


RSGNT2 




IDA 


38TT8M # 2 




ADD 


8NE 




MRQ 


LIVEL6 




STA* 


A232 




LDA 


B8TT8M,2 




SUB 


8NE 




MRQ 


LIVESe 




STA* 


A233 




LDA 


BASE#2 




SUB 


B8TT8M,2 




SUB 


8NE 




STA 


RSGNTf 




LDA 


MINUS2 




ADM 


BASE#2 




ADM 


STARTS 




ADM 


T8P/2 




ADM 


B&TT8M,2 




LDX 


RSGNT4 




BRU 


A234 


A232 


EXU 


A232A 


AS33 


exu 


A233A 


A234 


BRX 


A232 




LDA 


RSGNT2 




ADD 


8NE 


A235 


SKG 


RSGNTJ 




BRU 


A231 




LDX 


RSGNT3 




SBRR 


REASGM 



REASSIGN TEMP 3 

REASSIGN MEM8RY 
REASSIGN MEMQRY 

ADR MASK 

REASSIGN TEMP 1 

8NE 

A5 

REASSIGN TEMP 2 

B8TT8M 

8NE 

LIVE LDA+ 8P 

AX 

B8TT8M 

8NE 

LIVE STA + 8p 

A2 

BASE 

&8TT8M 

8NE 

REASSIGN TEMP 4 

MINUS TW8 

BASE 

START 

T8P 

B8TT8M 

REASSIGN TEMP -if 
A3 

{B8TT8MH) 

(B8TT8M*1) 

Al 

REASSIGN TEMP 2 

8NE 

REASSIGN TEMP 1 

A4 

REASSIGN TEMP 3 

REASSIGN MEM8RY 



♦PRESS MEM9RY 
$PRESSM LDA 
STA_ 
A236 LDX 

JsPA^ 
STA 

XMA 

STA 
SUB 
CNA 

ADM 
ADM 

AOQ 
STA 
SUB 
SUB 
CAX 

BRU 
LDA* 

SKR 
SKR 
BRX 
SKR 
IDA 
SKE 
BRU 
IDA 

sua 

SKG 

BRU 



A237 



A238 
A239 



N&LASU 
J?SGNT 1 

~ rsgntT'" ""*" 

RSGNT2 

B8TT8M,2 
RSGNT4 

B8TT8M,2 

START#2 
T8P,2 
6ASE#2 
BASE*2 

B8TT8M*2 

8NE 

A238 

RSGNT4 

— KSiaJbLXS 

RSGNT4 

RSGNT2 

A237 

RSGNTl 

RSGNT1 

A236 

FLSCBT 
FLSLMT 
MINUS2 
MVLST 



*MEM6RY ©VERFU9W 

•MEM8VF SBRM INITLS 

SKN LASTST 

BRU A240 

JRS REUPRT 

PRC CARET 

A24Q PRQ 8VFLQT 

BRU TRMCPL 



N8 8F LAST LIST 


_RJA55IfiN-Jt£*SL4- _ 


REASSIGN 


TEMP 1 


LIMIT 




REASSIGN" 


TEtfP""~2~ 


B8TT8M 




REASSIGN 


TEMP 4 


B8TT8M 




START 




T8P 




BASE 




BASE 




B8TT8M 




8NE 




A5 




REASSIGN 


TEMP 4 


-REASSJjQIi. 


JXfclEL2— 


REASSIGN 


TEMP k 


REASSIGN 


TEMP P 


A3 




REASSIGN 


TEMP i 


REASSIGN 


TEMP 1 


ZER8 




Al 




FL SCALAF 


! B8TT8M 


FL SCALAR 


! LIMIT 


MINUS TW8 


► 


M8VE LISTS UP 


INITIALIZE LISTS 


LAST STA 


TRIGGER 


Al 




RELEASE AND PRINT 


CAR RETURN 


8VERFL8W 


QU8TE 


TERMINATE 


: C8MPILE 



PAGE 
♦B8TT8M EXIT 

$B8TEXT LDX 
STX 
LDX 
BRR 
♦INDEX EXIT 
SJNDXEX LDX 
STX 
UDX 
8RR 
♦CLEAR TWO E 
$CLR2EF SKR 
♦CLEAR 8NE E 
$CLR1EF SKR 

♦EXIT FALSE 
$XTF EAX 

8Ry 

♦CLEAR TW8 E 
*CLR2ET SKR 
♦CLEAR 9NE E 
*CLR1ET SKR 
♦EXIT TRUE 
$EXJTRU EAX 
♦EXIT TRUE 8 
SXTRXF STA 

LDA 
LDX 
ADD 
ETR 
ADM 
BRU 
♦CLEAR F0UR 
$CLR4AE SKR 
♦CLEAR THREE 
SCLR3AE SKR 
♦CLEAR TW9 A 
$CLR2AE SKR 
♦CLEAR 8NE A 



* EXIT F9R P8PS 
NNTP2 


WRKB8T 


NNTP2 

NNTP1 


XIT FALSE 

WRKB8T 
XJT FALSE 
WRK88T 

ZER8 

XTRXF 

XIT TRUE 

WRK88T 
XJT TRUE 

WRKB8T 

XTRUEM 
R EXIT FALSE 
XITTP1 
0»Z 
EXIB8T 

TESTNM 
Wl#2 
X8NLST 
AND EXIT 

WRK38T 
AND EXIT 
WRKB8T 
NQ EXIT 

WRKB8T 
ND EXIT 



WHICH SEGAN WITH »N8 N8ST ENTRY' 
NN TEMP 2 
C 

W9RK B8TT8M 


NN TEMP 2 


NN TEMP I 


W8RK B8TT0M 

W8RK B8TT8M 

ZER8 
EXIT TRUE 8R EXIT FALSE 

W8RK B8TT8M 

W8RK B8TT9M 

EXIT TRUE MASK 

EXIT TEMP 1 


EXIT BBTT8M 
WJ 

TEST N8DE MASK 

Wl 

EXIT 8N LIST 

W8RK B9TT8M 

W8RK B8TT6M 

W8RK B8TT8M 



$CLR1AE SKR 

♦ EXIT 

$EXIT STA 
♦EXIT ON LIST 
$X8NLST IDA* 

SKR 
STA 

♦ EXIT ON 'ZERO 
$XT0NZ8 LQA 

IDX 

8RR 
♦CHAR TRANSU T 
CNTTBl EXT 
CNTTBt EQU 
$$PACE DATA 
$TAPEMK OCT 
$DOUBQT DATA 
$SHARP DATA 
$D6LLAR DATA 
$SCRPTM OCT 
$10361 DATA 
$PRIME OCT 
UPAREN EXT 
LPAREN EQU 
$L0£6 OCT 
RPAREN EXT 
RpAREN EQU 
$RQ26 8CT 
ASTRSK EXT 
ASTRSK EQU 
$ASTRCH 8CT 
PIUS EXT 
PLUS EQU 
SPIUSCH 8CT 
COMMA EXT 
COMMA EQU 
C8MACH OCT 
MINUS EXT 
MINUS EQU 



WRKB9T 
XITTPi 

EXIB8T 

EXIBOT 


XJTTP1 

WRKB8T 

ABIE 



00002600B 

01003200 

07003200B 

030032008 

040032008 

0500320Q 

Q6003200B 

07003200 



10003200 



11003810 



12003200 



13003200 

14003210 

* 



WORK BOTTOM 

EXIT TEMP 1 

EXIT BOTTOM 
EXIT BOTTOM 

6 

EXIT TEMP 1 
WORK BOTTOM 




SPACE 
TAPE MARK 
PRIME 

DOLLAR 
SCRIPT M 
AND SIGN 
PRIME 

L PAREN 

026L 

R PAREN 
026R 

ASTERISK 
ASTERISK CHAR 

PLUS 
PLUS CHAR 

COMMA 
COMMA CHAR 

MINUS 



$MJNUSC 

$PERI8D 

VRGULE 

VRGULE 

$StASNC 

$N8 

$N1 

$N2 

$N3 

$N4 

$N5 

$N6 

$N7 

$N8 

$N9 

$cei0N 

SEMIC9 

CARRET 

CARRET 

$CARET 

$LESSTH 

EQUAL 

EQUAL 

$EQSNCN 

$GRTHAN 

$QMARK 

$ATSYM 

$A 

$B 

$C 

$D 

$E 

$r 

$G 

$H 

*I 

$J 
$K 



9CT 
9CT 

EXT 

EQU 
9CT 
9CT 
9CT 
9CT 
8CT 
8CT 
9CT 
9CT 
9CT 

ecr 

9CT 
9CT 

EQU 

EXT 

EQU 
9CT 
9CT 

EXT 

EQU 
8CT 
9CT 

DATA 
DATA 
9CT 
9CT 
9CT 
8CT 
9CT 
9CT 
9CT 
8CT 
9CT 
9CT 
9CT 
8CT 



15003200 
16003200 



17003210 
20002205 
21003205 
22003205 
23003205 
24003205 
25003205 
26003205 
27003205 
30003205 
31003205 
32003200 



33000320 

3*003200 



35003200 
36003200 
37002200B 

40Q03200B 
41003206 
42003206 
43003206 
44003206 
45003206 
46003206 
47003206 
50003206 
51003246 
52003246 

. 53003246 
54003246 



MINUS CHAR 
PERI0D 

VIRGULE 

SLASH CHAR 
NO 
Nl 
N2 
N3 
N4 
N5 
N6 
N7 
N8 
N9 

C8L8N 
SEMI C8L9N 

CAR RET 
CAR RETURN 
LESS THAN 

EQUAL 
EQUAL SIGN CHAR 
GREATER THAN 
QUESTI8N MARK 



$M 


8CT 


55003846 


M 


$N 


8CT 


56003346 


N 


$LETER9 8CT 


57Q03206 


tETTER 8 


$p 


8CT 


60003206 


P 


$Q 


acT 


61003206 


Q 


$R 


8CT 


62003206 


R 


$S 


ecT 


63003206 


S 


$T 


8CT 


64003206 


T 


$U 


ad 


65003206 


U 


$v 


act 


66003206 


V 


$w 


aci 


67003206 


w 


$x 


acT 


70003206 


X 


$Y 


act 


71003206 


Y 


$z 


acT 


72003206 


z 


$IBRAKT 8CT 


■7SQQ3&&&- 


t BRAKE! 


$BKWDVR 8CT 
$RBRACK 8CT 


74003200 


BACKWARDS VIRGULE 
R BRACKET • 


~r WW E 1 CT 


M8DECG 


EQU 


* 


M9DE CHANGE 


$ERMRK 


8CT 


76003200 


ERR8R MARK 


$DELETE 9CT 


77006000 


DELETE 


♦ACCEPT CHAR 


AND BRANCH 




#1/ AiCHAR RT 


ADJ#X?0#1 F8R 


6*9 BIT CHAR 


*B IBSli A SAVED 




$ACB 


ZRa 


tACB 






SKG 


ACBLIM,2 


LIMIT 




SKG 


ZER8 






CIA 








STA 


ACBCHR 






IDS 


B6#2 






ST3 


ACBBIT 






eta 








tSH* 


ACBSCT*2 


SHIFT C8UNT 




tDB 


ACBMSK*2 


MASK 




EAX* 


tACB 




ACBl 


EAX 


1*2 






SKM 


0#2 






BRU 


* + 2 






8RU 


ACB8UT 





ACB8UT 



XMA 


AC3BIT 


SKA 


0/2 


BRU 


ACB8UT 


XMA 


ACBBIT 


BRU 


ACBJ 


LDA 


ADRMSK 


ETR 


0/2 


CAX 




LDA 


ACBCHR 


BRU 


0/2 



#WJ8 PATCH ** F8R SYSTEM DEBUGGING 8NIY ** TYPES FTC 8CTAL 6UTPUT 
*CALL FR8M A206+6 

$^I8PTH ZR8 IWI8PT 

SKN FLC LIST C8DE 

BRR IWI8PT 

ABC 

LDX MIN8 
WI01 CLA 

USH 3 

ADD M20B 

CI8 8NE 

BRX wiei 

TC8 CR 

BRR LWI8PT 

$MJN8 DATA *8 
$M2QB DATA 20B 
# 

* 

* 
* 

# 



♦RUN TIME ADD 
SRTAFXJ ADD 

♦RUN TIME LDP 

$RTLFU LDP 

♦ SKA RUN T 
$SKARI SKA 

♦ SKG RUN TIME 
$SKGRZI SKG 
♦LIVE EAX+ M9P 
$EAX8P EAX 
♦LIVE SKM+ M8P 
$SKM8P SKM 
JNP8P EXT 
$N8P8P N8P 
$8UTP8P NaP 
♦LIVE HLT PLEX 
$LHPLIN HLT 
♦LIVE BRU M8P 
$BRU8P BRU 
♦LIVE SKE* MSP 
$SKE8P SKE 
$CLA8P CLA 
♦LIVE LDA + 8P 
$LIVEL^ LDA 
♦LIVE STA + 8P 
$LIVES9 STA 

$EMPTQT ASC 
$F8RKQT ASC 
$C8MPQT ASC 
$MEMQT ASC 
$RDERQT ASC 
$INFQT ASC 
$FRFQT ASC 
$T8FQT ASC 
$8HQT ASC 
49UTFQT ASC 
$WHATQT ASC 
$ECH8QT ASC 



FX 8NE 

RNTFX1 
FL 8NE 

RNTFL1 
SIGN BIT INST 

RNTSBT 
ZER8 INST 

RUNTM8 

0#2 

Q>2 

# 


1 
LIST INST 

PLEXLS 



0j2 



RUN TIME FX ONE 

RUN TIME FL 8NE 

RUN TIME SIGN BIT 

RUN TIME ZER8 




INPUT 8P 

LIVE 
8UTPUT 8P 



N8P M8P 



PLEX LIST 



0#2 

0#2 



F8RK. » 
9MPILE.' 
MEM8RY PANIC 
READ ERR8R .' 
NPUT. ♦ 

FR8M t * 

T8 ft 
8. » 
UTPUT.' 

t * 
CH8t ' 



WHAT QT 
ECH8 QT' 



•W18QT ASC 
$WRI8QT ASC 
SSUBRQT ASC 
$FNCTQT ASC 
$IFQT ASC 
$JMENGT ASC 
$8T8QT ASC 
$FRMTQT ASC 
$CALIQT ASC 
$C8NTQT ASC 
STYPEQT ASC 
$ACCPTQ ASC 
$TAPEQT ASC 
$READQT ASC 
$NPTPQT ASC 
$WRITEQ ASC 
$UTPTPQ ASC 
$PUNCMQ ASC 
$PRJNTQ ASC 
$FIQT ASC 
$8VFLGT ASC 
$SENSEQ ASC 
$WITCHQ ASC 
$LIGHTQ ASC 
$ASSGNQ ASC 
$CM8NQT ASC 
$T8QT ASC 
$EQUIVQ ASC 
SRTURNQ ASC 
$PAUSEQ ASC 
$ST8PQT ASC 
$P8NEQT ASC 
SIBLERQ ASC 
•CMAUOT ASC 
$PRa(3QT ASC 
$SBREQT ASC 
SERR8RQ ASC 
$DYQT ASC 
$AU9CAQ ASC 



8T8 QT 
FORMAT QT 



;SPECIFY I«8 FILEStt 

J INPUT FILE N8T SYMB8LIC 

SUBR8UTINE# ♦ 

FUNCTI8N, ' 

IF*' 

IMENSI8N, » 

8T8*» 

F8RMAT* » 

CALL.' 

CONTINUE* ♦ 
TYPE* ' 
ACCEPT*' 
TAPE. i 
READ.' 
NPUTTAPE,' 
WRITE,' 
UTPUTTAPE*' 



NPUTTAPE QT 



UTPUTTAPE QT 



PUNCH* » 

PRINT* » 

FL8ATING,» 

8VERFU8W1' 

SENSE*' 

WITCH*' 

LIGHT*' 

ASSIGNS 

C8MM8N** 

T8*' 

EQUIVALENCE*' 

RETURN* ' 

PAUSE* ' 

ST8P, f 

;D8 NEST ERR8RSJ*' 

J ^LABELING ERR8RSJ *•» 
UC8MM8N ALL8CATI8N;;*' 
HPR8GRAM ALL8CATI8N;;»» 

;jSUBPR8GRAM§ REQUIRED*; 
ERR8R* ♦ 
DUMMY* ' 
ALL8CATl8Nf t 



$NUMBQT 
$IDECQT 
$SYTAXQ 

$SUBSCQ 
$TENDQT 
$ENDQT 



ASC 
ASC 
ASC 
ASC 
ASC 
ASC 



$LISTQT ASC 
$DBUGQT ASC 
$ASQT ASC 
*8PENQT ASC 
$WAITQT ASC 
$10CRQT ASC 
$IFUQT ASC 
$6FUQT ASC 
•MAPQT ASC 
$C19SQT ASC 
$BADtTO ASC 
$PTIDFG 8CT 
$ADDRFG 8CT 
6PTAGB EXT 
8PTAGB EQU 
STR^RSF 8CT 
$N8TCRF 8CT 
INTGL.M EXT * 
INTGLM EQU * 
$TCRBFG 9CT 
A5CNB EXT 
ASCNB EQU 
$CARRFG 8CT 
$N©ULSV 8CT 
$N8ITSV DEC 
$LINEPP DEC 
$N8LIST DEC 
$N8UASL DEC 
$CGSGIN 8CT 
$ABU2M« 8CT 
$MPTITU 8CT 
SPTJTL EXT 
SPTITL EQU 



NUMBER.' 

ID DECLARAI8N 

SYNTAX.' 

SUBSCRIPTS! » 
;;THE END.' 
END. ' 
1ST* ! 
EBUG» » 
AS* ' 
PEN. ♦ 
WAITi' 

NPUT.' 

8UTPUT. ' 

APf t 

CL9SE. ' 

CANT 8PEN 
OOiOOOOQ 
00400000 



DEBUG 
AS QT 
8PEN QT 



QT 



TEN CARRIAGE RETURNS 
INPUT FILE QT 
8UTPUT FILE QT 



QT 



CL8SE FILE 
LIST FILE.' 

PART ID FLAG 
ADDRESSABLE FLAG 



M8P TAG BIT 
400 TAB 8R BLANK 8R SPACE FLAG 

2000 N8T CAR RETURN FLAG 

INTEGER LIST MASK 
100 TAB«CAR RETURN-BACKSPACE FLAG 

ASCII NUMBER BASE 

20 CAR RETURN FLAG 
17 NUMBER 8F LAST LIST SAVED 
59 NUMBER 8F ITEMS SAVED 
55 LINES PER PAGE 

21 NUMBER 8F LISTS 
20 N8 8F LAST LIST 
1460000Q CHANGE SIGN INST 
77777774 ALL BUT L8W 2 MASK 
04000000 MPR8G TITLE 

SPR8G TITLE 



SN8PINS 
$NMARKR 
$T8P5BM 
$TENB4E 

$ALLD8L 
SCAR8L8 
SCR 

$tF 

$ICR 

$TESTNM 

ABAM 

ABAM 

$CDMASK 

SCAJDP 

SCAIDF 

$XTRU£M 

PPEFLM 

PPEFLM 

$TAGBIT 

FIF^AG 

FIFLAQ 

$M9DEMS 

$MINU17 

$NSLSVB 

$hINUS5 

$MINUS2 

N8FLSV 

N6FLSV 

LDTPFG 

TYBYWF 

LETRFQ 

LETRFG 

$rwe 

L8W2BM 
L8W2BM 
$THREE 
LTRDGF 
LTRDGF 



8CT 
8CT 
8CT 
8CT 

8CT 
ASC 
DATA 
ZR8 
ZR8 
ZR8 
8CT 

EXT 

EQU 
8CT 

EXT 

EQU 
8CT 

EXT 

EQU 
8CT 

EXT 

8CT 
DEC 
DEC 
DEC 
DEC 

EXT 

EQU 

EQU 

EQU 

EXT 

EQU 

DEC 

EXT 

EQU 

DEC 

EXT 

EQU 



oaoooooo 

00600000 
76000000 
24000000 

00000000 

t $$$ ' 

33000000B 

155B 

J52B 

33B 

77600000 



77740000 



00200000 



20000000 



00040000 
•17 

•14 
*5 

*2 
* 

# 

* 

* 

2 

* 

* 

3 

* 



N8P INST 
END MARKER 
T8P 5 BITS MASK 
TEN B4 EXACT 

ALL D8LLARS 
CAR RETURN ZER8 L8w 

CARRIAGE RETURN 

LINE FEED 
INTERNAL CARRIAGE RETURN 
TEST N8DE MASK 

ALL BUT ADR MASK 
CSDE MASK 

SCALAR ID FLAG 
EXIT TRUE MASK 

PREVI8USLY DEF LBL MASK 
TAG BIT 

FL FLAG 
M8DE MASK 
MINUS SEVENTEEN 
NUMBER 8F LISTS SAVED BRXER 
MINUS FIVE 
MINUS TW8 

NUMBER 8F FIRST LIST SAVED 
L8AD TAPE FLAG 
TYPING BY w FLAG 

LETTER FLAG 
TW8 

L8W 2 BITS MASK 
THREE 

LETTER 8R DIGIT FLAG 



$F0UR PEC 


4 


F8UR 


$FIVE DEC 


5 


FIVE 


$SIX DEC 


6 


six 


SEVEN EQU 


* 


SEVEN 


$8CTDMS DEC 


7 


8CT DIGIT MASK 


EIGHT EXT 


CVRPFG 


EIGHT 


$CVRPFQ 8CT 


00000010 


C8MMA*VIRGULE*R PAREN FLAG 


$NJNE DEC 


9 


NINE 


$TEN DEC 


10 


TEN 


$?IXTY DEC 


60 


SIXTY 


$B19KLG DEC 


90 


B18CK LENGTH 


$8NEMIL DEC 


1000000 


8NE MILLI8N 


$TENTH3 8CT 


31463146 


8NE TENTH 6»3 


6CT 


31463160 




$TENB4 8CT 


24000000 


TEN B4 


ecr 


00000010 




$KEYVAL DEC 


910 


KEY VALUE 


CMMTBL EQU 


# 


CHAR MASK TABLE 


$CH1MSK 6CT 


77000000 


CHAR 1 MASK 


$CH2MSK 8CT 


00770000 


CHAR 2 MASK 


$CH3h$K 8CT 


00007700 


CHAR 3 MASK 


SJZMSK EXT 


* 




SJZMSK EQU 


♦ 


SIZE MASK 


KYCMSK EQU 


# 


KEY C8DE MASK 


$CH4MSK 8CT 


00000077 


CHAR 4 MASK 


$N8TCMT 8CT 


0C777777 


N6T CHAR MASK TABLE 


8CT 


77007777 




8CT 


77770077 




$MJNS64 8CT 


77777700 


MINUS 64 (MUST F8LL8W N8TCMT) 


$CHARST N0P 





CHAR SHIFTER TABLE 


MUL 


RSH6 


RIGHT SHIFTER 6 


MUL 


RSH12 


RIGHT SHIFTER 12 


MUL 


RSH18 


RIGHT SHIFTER 18 


$BRS9 BRS 


9 


START F8RK 


$BRStO BRS 


10 


ST8P F8RK 


$BRS3l BRS 


31 


WAIT 


$CHR3ST LRSH 


2 


CHAR SHIFTER T8LE , 3C/W 


LRSH 


10 




IRSH 


18 





$CHMT38 DATA 


377000008#00177400B# 


$CLNEGL DATA 


000373778 


CUP9SL EXT 


« 


CUP9SL EQU 


* 


$TREMSK QCT 


00000377 


*MAXLBL DEC 





DEC 


100000 


$MAXINT QCT 


00000000 


MADELB EXT 


* 


MADELB EGU 


* 


ALBUTS EQU 


* 


ABSM EQU 


* 


$P8SFSC 8CT 


37777777 


FJVMSK EQU 


# 


$AbSATM 8CT 


17777777 


$MAXASA 8CT 


00000000 


$RSM6 8CT 


00400000 


RSH12 EQU 


# 


$DECHFG QCT 


00004000 


CNCHFG EQU 


# 


8NEA14 EXT 


* 


9NEAH EQU 


* 


$RSH14 8CT 


00001000 


LBISTM EXT 


* 


LBISTM EQU 


* 


STFLK EXT 


20QB 


STFUK EGU 


200B 


ST6FLK EXT 


# 


ST6FLK EQU 


* 


$RSH16 8CT 


00000200 


$IJKLMN DATA 


40B 


$RSH18 8CT 


00000040 


$F8URK DATA 


00010000 


$FXTPCD 8CT 


07600000 


$PYPTCD SCT 


10400000 


$C8DE 8CT 


00740002 


8CT 


01700002 


8CT 


02400301 


8CT 


03440002 



377B 

CHARIS LOWER NEG LIMIT 

CHARIS UPPER P8S LIMIT 
TREE FIELD MASK 
MAX LBL ALL9WED 

MAX INTEGER ALL8WED 

MADE LBL 

ALL BUT S 

ALL BUT SIGN MASK 

PBS FULL SCALE 
FIVE DEC MASK 

ALL BUT SIGN AND TAG MASK 

MAX ARRAY SIZE ALL8WED 

RIGHT SHIFTER 6 
RIGHT SHIFTER 12 

DELETE CHAR FLAG 
C8NTINUATI8N CHAR FLAG 

8NE IN 14TH BIT 
RIGHT SHIFTER 14 

LABEL LIST MASK 
START 8F LINKS 

START 8F LINKS 
RIGHT SHIFTER 16 
IJKLMN FLAG 
RIGHT SHIFTER 18 
4 TH8USAND 
FX TEMP PNTR C8DE 
DMY PNTR C8DE 
C9DE 

LABEL LIST C9DE 





8CT 


04400101 






8CT 


05500005 






8CT 


06500002 






ecT 


070000Q3 






8CT 


10500003 






8CT 


H700003 






8CT 


12000002 






8CT 


13000003 






8CT 


14000101 






8CT 


15000003 






8CT 


16000003 






9CT 


17000101 






8CT 


20000101 






8CT 


21000101 






8CT 


22000102 






8CT 


230001Q1 




4+ 


8CT 


24000101 




9BIT 


EXT 


40000B 




9BIT 


EGU 


40000B 




• ACBLP 


1 ZR8 


77B 






ZR8 


177B 


(MUST F8LL0W 77B 


$ACBSCT ZR8 


18 


SHIFT C8UNT 




ZR8 


15 


(MUST F8LL8W 


$ACBMSK DATA 


77400000B 






DATA 


77740000B 




$B6 


DATA 


400000B 




$B9 


DATA 


40000B 




$FTBLE 


10B 


T8LE#1 


F8RK TABLE ADDRESS 


SBELL 


ZR8 


147B 




$TW8H 


DATA 


200 




$RTPERD ZR8 


163 


RIGHT JUSTIFIED PERI8D 


$C6Mpt? DATA 


77777770B 




$NBPTI 


BSS 


2 


HEADING BUFFER PTRS INITIAL 


HLT8P 


EXT 


* 




HLT8P 


EQU 


# 


HLT INST 


P8STRT 


EXT 


* 




PBSTRT 


EGU 


# 


P8SITIVE TRAIT 


SKBtFG 


EXT 


# 





SKBLFG 
DP8NE 

DP8NE 

RUNTM3 

RUNTM8 

$ZER8 

DIGTFt 

DIGTFL 

8PINDB 

8PINDB 

NEGTRT 

NEGTRT 

UBLKFG 

UBLKFG 

RSH23 

RNTFU 

RNTFH 

RNTFXJ 

RNTFXX 

$0NE 

RELADB 

MPYOtM 

MPYOLM 

SIGNBT 

SJGNBT 

RNTSBT 

RNTSBT 

$SlGN 

A16NES 

NEGFS 

NEGFS 

MINUS* 

MINUS! 

$8N£S 

PNTRAM 

PNTRAM 

$ADRMS 

$A183I 

$A184I 



EQU 
EXT 

EQU 
EXT 
EQU 

ZR8 
EXT 
EQU 
EXT 

EQU 
EXT 

EQU 
EXT 
EQU 

EQU 
EXT 
EQU 
EXT 
ZR6 

EQU 
EXT 
EQU 
EXT 

EQU 
EXT 

EQU 
£R9 

EQU 
EXT 
EQU 
EXT 
EQU 
DATA. 
EXT 
EQU 
K 2R8 
EAX 
SKE 



* 
* 

M4B 


* 

* 

* 

* 

* 

* 

M5B 

415B 

415B 

415B 

1 
# 

* 
* 
♦ 

<*17B 

417B 

# 
* 

» 
ft 

37777B 

SIZEM1,2 
B9TSZ2*? 



SKIP BLANKS FLAG 
DP 8NE 

RUN TIME ZERa 
ZER8 

DIGIT FLAG 

M8P IND BIT 

NEGATIVE TRAIT 

USE BLANKS FLAG 
R SHIFTER 23 
RUN TIME FL 9NE 

RUN TIME FX 8NE 

8NE 

RELATIVE ADR BIT 

MULTIPLY DEF L8L MASK 

SIGN BIT 

RUN TIME SIGN BIT 

SIGN BIT 

ALL 8NES W8RD 

NEG FULL SCALE 

MINUS 8NE 



PNTR ADR MASK 
ADDRESS MASK 
INITIAL C8NTENT3 F8R MODIFIED C8MMAND 



$A185J 


SKE 


B8TSZ3#2 


SA187I 


EAX 


SIZEMJ,2 


$A188! 


SKM 


B6TSZ2#2 


$A232l 


LDA 


B8TP1#2 


$A233I 


STA 


B8TMX,2 


$SCENI1 


ASC 


» . f 


$SCENJ2 


ASC 


» t ' 


$PRGEND 


DATA 


32465152B 


$E8FWRD 


DATA 


27657537B 



SYMB8UIC CENTRAL INITIALIZE 

PR8GRAM END W8RD 
END 8F FILE W8RD 



1L6 



JDENT 9-30 L9ADER, PART 1 
ORIGIN AT 400 #*#*### 



9/30 11 J 24 



PAGE 1 



***##FIXEQ ST8RAGE L8CATI8NS **** 
# 

*L8C 400 
* 

SEOAQR ZR8 

$EOTAG ZR8 

$E0IND ZR8 

$EADR1 ZR8 

$EOSIZE ZR8 



$MPRHST 
$LNKXMN 

SBLKSTL 

$B8TlTa 

$88TLT1 

$B8TLT 

STEMP3 

$TEMP3 

$TVSTRT 

$AYTBST 

$FXSPST 

$FLSPST 

SFLSPND 

$FLAG 

$RW8RD 

$STFtC8 

$LINKX 

$MIFMPI 

$L8WC9M 

ffcBREAK 

$PRTYPE 

$MIFPRR 

$H8LDIX 



ZR8 
HLT 
HUT 
HLT 
HIT 
HIT 
ZR8 
ZR8 
ZR8 
ZR8 
ZR8 
ZR8 
BSS 
ZR8 
BSS 
ZR8 
ZR8 
ZR8 
ZR8 
ZR8 
ZR8 
ZR8 
ZR8 



HEAD START 8F MAIN 


PR8GRAM 


LINK X MJN 




BL8CK START L8CAT18N 


B8TT8M LINK TBL*2 




88TT8M LINK TBL-1 




B8TT8M LINK TBL 




TEMP 2 




TV START 




ARRAY TABLE START 




FX SPEC START 




FL SPEC START 




FL SPEC END 




START FL C8N 




LINK X 




MINUS IF MAIN PR8G 


IN 


LOWEST C8MM0N ADR 




BREAK 




PR8G TYPE 




MINUS IF PR8GRAM REXTIRED 


H8LD LINK X 





$PRSTRT 


ZR6 





$ENT 


ZR9 





SNAME1 


IRQ 





$MAME2 


ZR6 





*NAME3 ; 


IRd 





$W9RD 


ZR9 





$UABEIX 


ZRe 





$1STIAD 


ZR9 





$ABSCNT 


ZR9 





$TEMP1 


ZR9 





$U8CCNT 


ZR9 





$LBXLES 


ZR9 





SLNKPTR 


BSS 





$STFXC9 


BSS 


1 


$STDUM 


BSS 





$HEADST 


ZR9 





$STTEMP 


BSS 





$VAQR 


ZR9 





$STXSCA 


BSS 





$VC8UNT 


ZR9 





$STFSCA 


BSS 





$csunt 


ZR9 





$STNXPR 


ZR9 





$RUNT9P 


ZR9 





ENDABS EXT 


250B 


$MS8PSZ 


ZR8 





$CNVHWD 


ZR9 





$1BRTWB 


ZR9 





$CNVHSW 


ZR9 





$STSCAL 


ZR9 





$SCALTB 


ZR8 





$TABLCT 


BSS 





$VECADR 


ZR9 





$HJTCNT 


BSS 





$VECCNT 


ZR9 


Q 


$C9RENT 


ZR9 





$BFWADR 


ZR9 





$BUFCNT 


ZR9 





$CHKSUM 


ZR9 






PR9G START 
ENT 

NAME 1 

NAME 2 

INITIALLED WITH MSG TERMINAT9R 

W9R0 

LABEL X 

FIRST INST ADR 

ABS C9UNT 

TEMP 1 

L9C C9UNTER 

LABEL X LEAST 

START FX C9N 
START 9F DUMMYS 
HEAD START 
START ©F TEMP 

V ADR 

START 9F FX SCALARS 

V C9UNT 

START 9F FL SCALARS 
C9UNT 
START 9F NEXT PR9Q 
RUN-TIME T0P MEM9RY 
END ABS LINK TABLE 
MINUS SPEC 9P TABLE SlZr 
C6NV H9LD W8RD 
9NE 9R TW9 

C9NV H9LD SERCH W9RD 
START 8F FX 9R FL SCALARS 
SCAL TABLE ADR 
TABLE C9UNT 
VECT ADR 
HIT C9UNT 
VECT C9UNT 
C8RRECTED ENT 
BUFFER W9RD ADR 
BUFFER C9UNT 
CHECKSUM 
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*LASTWD BSS 





S1WD8BL ZR8 





$MLKKTS ZRd 


Q 


smulsr zRa 





STPMPLK ZR8 





$MEMSJZ ZR8 





$MIRMTE ZR9 





♦RELWRD ZR8 





SREUWCT ZRS 





$CURWRD ZR9 





$L8C ZR9 





$TMP1 ZRa 





$TMP2 ZR9 


Q 


$TMP3 ZR8 





$FRUB ZRO 





$INFLE ZR8 





$CHAR ZR9 





$TBUE BSS 


7 


TBIE6 EXT 


TBLE+6 


$KSBRML ZR8 





SFSTBRK ZR8 





$FDBUG ZR8 





*SYMPT1 ZR8 


Q 


$SYMPT2 ZR8 


Q 


$S8S ZR8 





$G8RUN 8SS 


7 


TSRLB EQU 


* 


TSRLB EXT 


* 


TSRLB1 EXT 


*«1 


*LINKS 




$IACB ZRQ 





$LNXW8R ZR9 





$LSERNL ZR8 





SLIILFI ZR8 





$HLLTA ZR8 





SLINCBR ZR8 






LAST W8RP 

FIRST W8RD 8F BL8CK 

MACH LINK TBL SIZE 

MINUS UNLESS L8A0 SYSTEM REQ 

LAST ApR 8F MEM9RY + LBL KEY 



W8RD 8F ARPAS 3 BIT REL9CAT18N REGISTERS 
REL8CATI8N W9RD REGISTERS C8UNT 
CURRENT W9R0 
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F8RK TABLE 
NEXT SBRM LINK P8INTER 
■1*PR86 CURRENTLY BEING L8ADED HAS DEBUG 

START 9F SYMB8LS AT END 8F PR8GRAM 
ST8RAGE F9R RUNTIME B89T5TRAP 



SLSTBRK ZR8 





SUNXWDP ZR8 





$LC9NV ZR8 





$LTRAVE ZR8 





♦LADJC6 ZR8 





$LREPAC ZR8 





$USRCNS ZR8 


Q 


$LSRCHR ZR8 


Q 


SLCKPRA ZR3 





$LPVECL ZR8 





$L8SUBF ZR8 





$CESYMS ZRd 





$CESYMP ZR8 





$CESYM ZR9 





END 
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PTR T8 1ST UNUSED WBRD IN CESYM VECT8R 
CURRENT EXT SYMB8LS 
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IDENT 9*30 L8ADER# PART 2 



9/30 11125 
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*6RIGIN THIS PACKAGE AT 300005 * * * 

* 

# 

PRC 

PRO 

FCL 

FCR 

XBC 

CA 

CB 

AB 

8X 

XB 

XA 

AX 

$F8RL 

# 

8NE 

BEQ 

DEC 

8CT 

M8VE 

M8VE1 



M6VE2 



M8VE2 



6PD 
3PD 

epo 

8PD 
£QU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

MACR9 

MACR8 

MACR8 

MACR8 

MACRO 

NARG 

IF 

CL»D( 
EISF 

UD»D( 
ENDF 

EQU 

RPT 

STtD( 

EQU 

ENDR 



17000000B/1/1 

17100000B#1#1 

46C0450B*2 

4600224B#2 

2460004QBj2 

1 

2 

4 

20B 

408 

200B 

40QB 

S455B 



FULL CYCLE RIGHT 
X T9 B* CLX 



A T8 B 



F8S SMT RELABELING BYTES 



D; SKE DU)j BRU D<2); ENDM 

D; SKE D(l); BRU * + 2J BRU D(2)J ENDM 

Dj DATA DU)j ENDM 

D; DATA D(1)*B; ENDM 

D 

f D<l$l*2) f «<*0' 
M8VE1) 

1 

M8VE1) D(l) 



M8VE1*2 
M8VE1) D{M0VE2) 
M8VE2+1 



» 

* 
$PS 

$RS 



LI 



12 



ENQM 



BRU 

IDA 

STA 

BRU 

8RS 

ETR 

BR3 

LDX 

CLA 

STA 

BRX 

M8VE 

IDA 

ADD 

STA 

MRG 

STA 

SUB 
STA 

SUB 

STA 

M6VE 

M8VE 

IDA 

ADD 

STA 

IDA 

STA 

SKR 

SKR 

LDA 

STA 
LDA 
STA 
LDX 
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LI 

RELAB 

TSRLB1 

Q0RUN 

43 

177000GB 

44 

s»4000B 

400CB/2 

*• % 

fNEWS,TBLE,A 

T8PMEM 

8NE 

MEMSIZ 

TAGBIT 

B9TLT 

8NE 

B©TLT1 

8NE 

89TLT2 

ALLD5L#NAME1# 

MSGTRMjNAME3# 

T6PMEM 

LBLKEY 

TPMPLK 

MSJX 

MS8PSZ 

MS9PSZ 

MS8PSZ 

MTWELV 

MS8PSZ 

MS8PSZ 

SIGNBT 

MULSR 



PR8GRAM START 



#** 



♦♦*THESE INSTRUCTIONS N8T NEEDED F6R 
***SYSTEM »B» (EXEC 8»Q) 8R HIGHER* 



NAME2j 
A 



LAST ADDR 9F 8BJECT PR8G C8RE 

8NE 

SIZE 8F MACHINE 

TAG BIT 

B8TT8M LINK TBL 

8NE 

B8TT8M LINK TBL»1 

8NE 

B8TT8M LINK TBL«2 

MESSAGE TERMINAT9R CHARACTER 

LAST ADR 8F MEM8RY 

LBL KEY 

LAST ADR 8F MEM8RY ♦ LBL KEY 

MINUS SIX 

MJNUS SPEC 8P TABLE SIZE 

MINUS SPEC 8P TABLE SIZE 

MINUS SPEC 8P TABLE SIZE 

MINUS TWELVE 

MINUS SPEC 8P TABLE SIZE 

MINUS SPEC 8P TABLE SIZE 

SIGN BIT 



MINUS UNLESS L8AD SYSTEM 
SET RUNTIME RELABELING C8DE 



REQ 





LDA 


RELAB/2 


IN 


LOADER TS BL8CK 




STA 


TSRLB^H 








BRX 


*-2 






*SBRM 


LINKS 


WORK DOWN FR8M C8PE START 




LDA 


C8DEST 








SUB 


si 








STA 


NS8RML 


NEXT SBRM LINK LOCATION 




MOVE 


sCESYM,CESYMS, 


CESYI* 


1P#A 




CLAB 










LDX 


MABSLS 






L3 


STA 


ENDABS,2 




END ABS LINK TABLE 




BRX 


L3 




L2 




STA 


LINKX 




LINK X 




STA 


MIFMPI 




MINUS IF MAIN PR8G IN 




STA 


HIRMTE 




MINUS IF READING MACH T8 




LDA 


TOPMEM 




LAST ADR 8F MEM8RY 




STA 


lowcom 




LOWEST C8MM8N ADR 




LDA 


CODEST 




C8DE STARTING ADDR 




STA 


MPRHST 








STA 


BREAK 




BREAK 




STA 


LBXLES 




LABEL X LEAST 




M8VE 


••1#FRUB#A 








MOVE 


PRCLNK#170B#A 








M8VE 


PRQLNK # 171B/A 








BRU 


P2 






P3 


BRS 
M6VE 


17 

*F9RK,TBLEiA 






P2 


LDA 

BRS 
NOP 


FTBLE1 

9 

F8RK 






$WAJT 


BRS 
LDX 

BRU 
BRU 
BRU 
PRQ 

BRU 


31 

TBLE6 
# + 1/2 

RUB 
BAD8P 
MEMQT 
PRL8C 






BAD8P 


PRQ 


ILLQT 






PRL8C 


LDA 


TBLE 
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END 



ETR 137777B 

LOB s8 

LDX il 

BRS 36 

BRS 10 

RUB LDA 

ETR 137777B 

BEQ §NEWS#RU81Q 

SKN FRUB 

BRU RUB3 

M8VE *0*FRUB/A 

P5 LDA TBLE 

gJR S37777B 
*CHECK THAT USER WAS IN AN 

SKG fEOSUBF 

SKG iQSUBF 

BRS 10 

MOVE fZl*TBLE#A 

BRU PZ 

RUB3 LDA TBLE 

ETR ?37777B 

SKE sENDLD 

BRS 10 

BRU 38RUN 
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»1 B N8 2ND RU88UT 



JNTERRUPTABLE AREA WHEN HE INTERRUPTED LEADER 
BPEN SUBPROGRAM FILE R8UTINE 

NOT OK/ GO BACK TO EXEC 



RUBQUT 



BUTTON WAS 
RELABEL IN 



PUSHED 
RUNTIME 



IN SYS2 SW RELABELING AND 



FROM TS 
G8 T6 R 



BLOCK 



RUB10 



*USER 
NEWS 

ERR1 
FORK 
F8RK10 



FORK! 



LDX *•! 

BRS 29 

BRU P3 

NEWS MESSAGE 

PRQ NEWSQT 

BRU FORK 

PRQ FNBQT 

PRQ LMPQT 

LDX . s*l 

BRS i* 

BRS 11 J 

PRQ FR8MQT 






FILE NOT BINARY 

LOAD MAIN PROGRAM 

CLEAR THE TTY INPUT BUFFER 





CLEAR 






LDX 


ilOOOOB 




BRS 


15 




BRU 


fsrkg: 




M9VE 


••l*FRUB#X 




8RS 


16 




BRU 


F9 RKf 




XAB 






8NE 


*2#ERRt 




STB 


INFLE 


♦ READ 


NEXT PR9G BU8CK 


RNXPLK 


UDA 


MEMSIZ 




SUB 


LBXLES 




ADD 


UINKX 




STA 


TEMPI 




CLAS 






STA 


FDBUG 




STA 


FSTBRK 




mL. 


U5 


L4 


STA* 


^LBXLES" 




MJN 


LBXLES 


L5 


SKR 


TEMPI 




BRU 


L* 




SBRM 


NXW9RD 




STA 


PRTYPE 




LDB 


9NES 




SKN 


MIFMPI 




BRU 


16 




SKM 


MPRTYP 




BRU 


17 




BRU 


RDENDP 


L6 


SKM 


MPRTYP 




BRU 


MANMJS 




IDA 


SJGN 




STA 


MIFMPI 


L7 


STA 


MJFPRR 




LDA 


UINKX 




STA 


W9LDUX 




IDA 


BREAK 
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SIZE 9F MACHINE 
LABEL X LEAST 
LINK X 
TEMP 1 

SET FALSE 



LABEL X LEAST 
LABEL X LEAST 
TEMP 1 

LIO 

NEXT W9RD 
PR6G TYPE 
9NES 

MINUS IF MAIN 
L3 

MAIN PR9G TYPE 
L<* 

READ TO END 9F 
MAIN PR8G TYPE 
MAIN PR8GRAM MISSING 
SIGN BIT 

MINUS IF MAIN PR9G IN 
MINUS IF PR9GRAM REQUIRED 



PR9G IN 



ALL BUT FIRST MAIN PR9G 



BREAK 





STA 


PRSTRT 




SKN 


PRTYPE 




BRU 


L7L 




BRU 


ASSM 


L7L 


SBRM 


NXW8RD 




STA 


ENT 




SBRM 


NXW8RD 




STA 


NAME1 




LDX 


BREAK 




STA 


1#2 




SBRM 


NXW8RD 


L8L 


STA 


NAME2 




STA 


2* 2 


L8 


IDA 


BREAK 




ADD 


EIGHT 




STA 


BREAK 




SUB 


T8PMEM 




STA 


UNKXMN 


L10 


IDA 


BREAK 




STA 


1STIAD 




STA 


l&CCNT 


LI 1 


SBRM 


SERHtT 


L12 


SBRM 


NXW8RD 




IDS 


8BIT8P 




SKM 


BLKL8P 




8RU 


L13 




BRU 


RDTEXT 


Li3 


STA 


ENT 




SKA 


IND8IT 




BRU 


1,14 




SKA 


TAGP8P 




BRU 


111 




SBRM 


NXW8R0 




STA 


NAME1 




SBRM 


NXW9RD 




STA 


NAME2 




BRU 


LU 


LH 


ETR 


8BIT8P 




RSH 


15 



PR8G START 


C8MPILED 




ASSEMBLED 




NEXT 


W8RD 


ENT 




NEXT 


W8RD 


BREAK 
1 

NEXT 




W8RD 


z 




BREAK 




EIGHT 




BREAK 




LAST ADR 8F MEM8R 


LINK X MIN 


BREAK 




FIRST 


INST ADR 


L8C C8UNTER 


SERCH LINK TABLE 


NEXT 


W8RD 


8 BIT 


8P MASK 


BLK L8P 


LI 




READ TEXT 


ENT 




IND BIT 


L7 




TAG P8P BITS 


L2 




NEXT 


W8RD 


NAME 1 


L 


NEXT 


W8RD 


NAME 2 


L2 




8 BIT 


8P MASK 


17 
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SKN 


MIFPRR 




BRU 


L12 




STA 


TEMPI 




IBS *r Mr 


REQBIT 




LDA 


ONE 




SKQ* 


TEMPI 




BRU 


U12 




STB* 


TEMPI 


# 


BRU 


LI? 


♦ READ 


COMPILED 


TEXT 


RDTEXT 


ETR 


ADRMSK 




STA 


MLKKTS 




SKN 


MIFPRR 




§RU 


128A 


L15 


LDA 


T0PMEM 




ADD 


UINKX 




STA 


IBXLES 


L16 


SBRM 


NXWORD 




LDB 


9PMASK 




LDX 


MS6PSZ 


U7 


SKM 


9PTAB1#2 




BRU 


118 




ETR 


N8PMSK 




MRG 


0PTAB2#2 


L18 


BRX 


L17 




STA 


WORD 




SKM 


LBLL8P 




BRU 


L19 




ETR 


ADRMSK 




SKN 


WORD 




ADD 


LBLKEY 




SUB 


TPMPLK 




E8R 


ONES 




ADD 


ONE 




ADD 


LINKX 




SKG 


IBXLES 




STA 


LBXLES 



MINUS IF PROGRAM REQUIRED 


18 


TEMP 1 


REQUIRED BIT 


ONE 


TEMP 1 


L8 


TEMP l 


U 


ADR MASK 


MACM LINK TBL SIZE 


MINUS IF PROGRAM REQUIRED 


READ TO END 9F PROGRAM 


LAST ADR 8F MEM8RY 


LINK X 


LABEL X LEAST 


NEXT W8RD 


8P MASK 


MINUS SPEC 8F TABLE SIZE 


OP TABLE 1 


L3 


NOT 8P MASK 


8P TABLE 2 


L2 


WORD 


LBL L8P 


L5 


ADR MASK 


W8RD 


LBL KEY 


LAST ADR 8F MEM8RY * LBL KEY 


8NES 


LINK X 


LABEL X LEAST 


LABEL X LEAST 
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STA 


LABELX 




IDA 


LBXLES 




§KG 


BREAK 




8RU 


PR2BIG 




LDA 


leCCNT 




STA* 


UABEUX 




BRU 


L16 


L19 


SKM 


ABSL8P 




BRU 


122 




STA* 


BREAK 




ETR 


ADRMSK 




STA 


ABSCNT 




SBRM 


INCBRK 




BRU 


121 


L20 


MIN 


L6CCNT 




SBRM 


NXW9RD 




STA* 


BREAK 




SBRM 


INCBRK 


L2i 


SKR 
N9P 


ABSCNT 




SKN 


ABSCNT 




BRU 


L20 




BRU 


LI6 


L22 


SKM 


DELL9P 




BRU 


L23 




BRU 


L27 


L23 


SKM 


SYstap 




BRU 


L25 




ETR 


N9PMSK 




MRG 


SBRMIND 




STA* 


BREAK 




ETR 


ADRMSK 




STA 


TEMPI 




IDA* 


TEMPI 




SKA 


9NES 




BRU 


L2* 




MRG 


REQBIT 




STA* 


TEMPI 


L2* 


MIN 


leCCNT 



LABEL X 

LABEL X LEAST 

BREAK 

PROGRAM T99 BIG 

L6C C9UNTER 

LABEL X 

L4 

ABS L9P 

L6 

BREAK 

ADR MASK 

ABS eeuNT 

INCR BREAK 
L7 
L9C CBUNTER 

NEXT W8RD 
BREAK 

INCR BREAK 
ABS C6UNT 

ABS CSUNT 

L8 

L4 

DEL L9P 

L9 

LIO 

SYS L8P 

HI 

N8T 9P MASK 

SBRM M9P 

BREAK 

ADR MASK 

TEMP 1 

TEMP 1 

9NES 

LI* 

REQUIRED BIT 

TEMP 1 

L9C C9UNTER 
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BRU 


L28 


L12 


L25 SKM 


BLKL8P 


BLK L8P 


IRU 


L26 


L13 


BRU 


RDTAIL 


READ TAIL 


L26 MIn 


L9CCNT 


L6C C9UNTER 


L27 STA* 


BREAK 


BREAK 


L28 SBRM 


INC8RK 


INCR BREAK 


8RU 


L16 


\m ^ 


L28A M8VE 


M8LDLX#LINKX#A 




PRU 


RDENDP 




♦READ TAIL 






RPTAIL IDA 


T8PMEM 




ADD 


LA8ELX 




SUB 


fl 




STA 


SYMPT1 




STA 


SYMPT2 




IDA 


L6CCNT 


L8C C8UNTER 


STA 


TVSTRT 


TV START 


IDA 


BREAK 


BREAK 


STA 


AYTBST 


ARRAY TABLE START 


SBRM 


STBRK 


ST8RE T8 BRK 


LDA 


BREAK 


BREAK 


STA 


FXSPST 


FX SPEC START 


SBRM 


STBRK 


ST8RE T8 8RK 


LDA 


BREAK 


BREAK 


STA 


FLSPST 


FL SPEC START 


SBRM 


STBRK 


ST8RE T8 8RK 


LDA 


BREAK 


BREAK 


STA 


PLSPND 


FL SPEC END 


*PR8C£SS 10 


SPECIAL W8RDS AT END 


8F PR8GRAM FILE 


LDX 


PRSTRT 


PR8G START 


SBRM 


NXW6RD 


NEXT W8RD 


STA 


TEMPI 


TEMP % 


SBRM 


NXW8RD 


NEXT W0RD 


E8R 


8NES 


8NES 


ADD 


8NE 


8NE 


ADD 


TVSTRT 


TV START 
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STA 


STFUC9 


SUB 


TEMPI 


STA 


STFXC8 


SBRM 


NXWQRD 


ADD 


TVSTRT 


STA 


TVSTRT 


STA 


3*2 


SBRM 


NXW9RD 


ADD 


TVSTRT 


STA 


STDUM 


STA 


4*2 


SBRM 


NXWORD 


ADD 


TVSTRT 


STA 


STTEMp 


SBRM 


NXWORD 


ADD 


TVSTRT 


STA 


5*2 


SBRM 


NXWORD 


ADD 


TVSTRT 


STA 


STXSCA 


STA 


6*2 


SBRM 


NXW8RD 


ADD 


TVSTRT 


STA 


STFSCA 


STA 


7*2 


SBRM 


NXW8RP 


ADD 


TVSTRT 


STA 


STNXPR 


ADD 


PRTYPE 


STA 


0*2 


SBRM 


NXWORD 


EOR 


ones 


ADD 


ONE 


ADD 


MEMSIZ 


SKQ 


18WC8M 


STA 


L8WC8M 


*SEC8ND PASS 




2NDPAS IDA 


L8WC8M 


SKG 


STNXPR 



START FL C9N 
TEMP 1 

START FX C8N 

NEXT WORD 
TV START 
TV START 
3 

NEXT W9RD 
TV START 
START 8F DUMMYS 
U> 

NEXT WORD 
TV START 
START 8F TEMP 

NEXT WORD 
TV START 
5 

NEXT W8RD 
TV START 

START 8F FX SCALARS 
6 

NEXT WORD 
TV START 

START 8F FL SCALARS 
7 

NEXT WORD 
TV START 

START OF NEXT PROG 
PR8G TYPE 


NEXT WORD 
ONES 
ONE 

SIZE OF MACHINE 
LOWEST COMMON ADR 
LOWEST COMMON ADR 

LOWEST COMMON ADR 
START OF NEXT PROG 
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BRU 


PR2BIG 


PROGRAM T88 BIG 




IDA 


1STIAD 


FIRST INST ADR 




STA 


•L9CCNT 


L8C COUNTER 




STA 


BREAK 


BREAK 


*SBRM 


LINK SET 


UP IF COMPILED 


SUBPR8GRAM 




IDA 


PRTYPE 


PR8QRAM TYPE 




SKE 


MPRTYP 


MAIN PROGRAM TYPE 




BRU 


* + 2 






BRU 


129 


MAIN PR8G 




LDA 


NSBRML 


NEXT SBRM LINK L8CATI8N 




STA* 


XSTIAD 


1ST INSTRUCTION ADDR 




SKR 


NSBRML 


DECREMENT POINTER 


L29 


SBRM 


NXWDP2 


NEXT WORD PASS 2 




BRU 


L35 


L5 




LD8 


8PMASK 


OP MASK 




SKM 


ABSL8P 


ABS L8P 




BRU 


L32 


LI 




ETR 


ADRMSK 


ADR MASK 




STA 


ABSCNT 


ABS COUNT 




BRU 


L31 


L2 


L30 


SBRM 


NXWDP2 


NEXT W8RD PASS 2 




SBRM 


ILLTAP 


ILLEGAL TAPE 




STA« 


L8CCNT 


LOC COUNTER 




MIN 


L9CCNT 


LOC COUNTER 


L31 


SKR 


ABSCNT 


ABS COUNT 




BRU 


L30 


L3 




BRU 


L29 


L4 


L32 


SKM 


DELL9P 


DEL LOP 




BRU 


L34 


L6 




ETR 


ADRMSK 


ADR MASK 




STA 


TEMP2 






SBRM 


NXWDP2 


NEXT WORD PASS 2 




SBRM 


ILLTAP 


ILLEGAL TAPE 




SBRM 


C8NV 


C8NV 




ADD 


TEMP3 






ETR 


NJNDBT 


N8T IND BIT 


L33 


STA* 


L9CCNT 


L8C COUNTER 




MIN 


L8CCNT 


LOC COUNTER 




BRU 


L29 


L4 
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L34 SBRM C9NV CQNV 216 PAGE 12 

BRU L33 L7 

L35 IDA STNXPR START 9F NEXT PR8G 

SUB L9CCNT 

STA TEMPI 

CUB 

L36 STA* L6CCNT 

MIN L8CCNT 

SKR TEMPI 

BRU L36 

L36B IDA STNXPR 

SUB T8PMEM tAST APR 8F MEMORY 

STA LNKXMN LINK X MIN 

CNA 

ADO LINKX 

STA TEMPS 

M8VE STNXPR/TEMP3#A 

CLA 

L36L STA* TEMP3 

MIN TEMP3 

SKR TEMP2 

BRU L36L 

LDB TVSTRT TV START 

IDA STDUM START 8F DUMMYS 

SUB TVSTRT TV START 

SBRM TRAVEC PR8CESS TRA VECT 

*LBAD DEBUGGING SYM8SLS 

SBRM NXW8RD 

ETR §377778 

STA TEMPI 

LDA# PRSTRT PR8GRAM START 

ETR §377773 

STA BREAK 

STA TEMR2 

L36Y SKR TEMPI, 

BRU *+H 

BRU U36X 



L36X 



SBRM 


NXW8RD 




STA* 


BREAK 




MIN 


BREAK 




LDA 


uewc^M 


L6WEST C9MM8N ADDR 


SKG 


BREAK 




BRU 


PR2BIG 




BRU 


L36Y 




MIN 


BREAK 




LDA 


BREAK 




STA 


STNXPR 


START 6F NEXT PR8GRAM 


XMA* 


PRSTRT 


PROGRAM START 


ETR 


177740000B 




ADM* 


PRSjRT 




IDA 


TEMP2 




LDX 


BREAK 




STA 


■ 1#2 




BRU 


CKALPG 


CHECK ALL PR8GRAMS IN 
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*NEXT W8RD PASS 2 



NXWDP2 


HLT 


LNXWDP 






UDA 


AYTBST 


ARRAY TABLE START 




SKG 


BREAK 


BREAK 




SBRR 


NXWDP2 


NEXT WORD PASS 2 




LDA* 


BREAK 


BREAK 




MIN 


BREAK 


BREAK 




MIN 


LNXWDP 


NEXT W8RD PASS 2 


* 


BRR 


LNXWDP 


NEXT W8RD PASS 2 


* 
*C8NV 








CBNV 


NLT 


LC8NV 






SKA 


SIGN 


SIGN BIT 




BRU 


137 


11 




SBRR 


C9NV 


BIT ZER9 N9T SET « RETURN IMMEDIATELY 


L37 


STA 


CNVHWD 





L37A 



L38 



L39 



L40 



LDB 


§570000006 




SKM 


#57000000B 




BRU 


L37A 




ETR 


137777B 


SBRM 9R SBRR 


SKG 


C6DEST 




BRg 


*+2 




BRU 


L37A 




LDA 


CNVHWD 




S8RR 


C6NV 




ETR 


ADRMSK 


ADR MASK 


SU8 


DUMKEl 


DUMMY KEY 


SKA 


SIGN 


SIGN BIT 


BRU 


L38 


12 


ADD 


STDUM 


START 8F DUMMYS 


BRU 


L48 


13 


ADD 


DUMTKY 


PUMMY«TEMP KEY 


SKA 


SIGN 


SIGN BIT 


BRU 


139 


L4 


ADD 


STTEMP 


START 9F TEMP 


BRU 


L48 


L3 


ADD 


TMPLKY 


TEMP. LINKAGE KEY 


SKA 


SIGN 


SIGN BIT 


BRU 


L40 


15 


K *?W 


X 


X 


ADD 


TVSTRT 


TV START 


BRU 


t.48 


13 


ADD 


LNKARK 


LINKAGE-ARRAY KEY 


SKA 


SIGN 


SIGN BIT 


BRU 


141 


L6 


STA 


TEMP} 


TEMP 1 


ADD 


TEMPI 


TEMP 1 


ADD 


TEMPI 


TEMP 1 


STA 


TEMPI 


TEMP 1 


RSH 


4 


k 


ADD 


TEMPI 


TEMP 1 


RSH 


4 


k 


ADD 


TEMPI 


TEMP 1 


ADD 


EIGHT 


EIGHT 


RSH 


4 


k 
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L4X 



L42 



L44 



L43 



ADD 


AYTBST 


STA 


TEMPI 


IDX 


TEMPI 


IDA 


0#2 


SBRM 


ADJC8M 


BRU 


L48 


ADD 


ARFXCK 


SKA 


SIGN 


BRU 


142 


ADD 


STFXC8 


BRU 


L48 


ADD 


XLC8KY 


SKA 


SIGN 


BRU 


143 


ADD 


STFLC8 


SRU 


L48 


ADD 


XStCKY 


SKA 


SIGN 


BRU 


147 


RSH 


1 


STA 


CNVHSW 


LDA 


8NE 


STA 


i6RTWQ 


UDX 


STXSCA 


IDS 


FXSPST 


IDA 


FLSPST 


SBRM 


SRCHST 


BRU 


148 


ADD 


XSLBKY 


SKA 


SIGN 


BRU 


L44 


E8R 


8NES 


ADD 


8NE 


ADD 


T8PMEM 


ADD 


UINKX 


STA 


TEMPI 


IDA 


LBXLES 


SKG 


TEMPI 


BRU 


146 



ARRAY TABLE START 
TEMP 1 

TEMP 1 


ADJUST F8R C8MM8N 
13 

ARRAY*FX C8NST KEY 
SIGN BIT 
17 

START FX C8N 
13 

FX C8NST-FL C8NST KEY 
SIGN BIT 
18 

START FL C8N 
13 

FL C8NST-FX SCALAR KEY 
SIGN BIT 
L10 

I 

C8NV H8LD SERCM W8RD 

8NE 

8NE 8R TW8 

START 8F FX SCALARS 

FX SPEC START 

FL SPEC START 

SEARCH SCALAR TABLE 
13 

FX SCALAR-LBL KEY 
SIGN BIT 
L9 

ONES 
8NE 

LAST ADR 8F MEMORY 
LINK X 
TEMP 1 

LABEL X LEAST 
TEMP 1 

Lll 
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L45 


LDA 


UNDLAD 




$RU 


L48 


L46 


LDA* 


TEMPI 




SKA 


9NES 




BRU 


L48 




BRU 


L45 


L47 


ADD 


FXSKEY 




STA 


CNVHSW 




LDA 


TW9 




$TA 


19RTWQ 




LDX 


STFSCA 




LDB 


FLSPST 




LDA 


FLSPND 




SBRM 


SRCHST 


L48 


STA 


TEMPI 




LDA 


CNVHWD 




ETR 


ALBADR 




ADD 


TEMPI 




LDB 


157600000B 




SKM 


«57000C00B 




ETR 


137777777B 


# 


SBRR 


C9NV 


*ADJUST F9R 


C9MM8N 


ADJCOM 


HLT 


LADJC8 




SKA. 


SIGN 




BRU 


L<*9 




ADD 


TVSTRT 




BRU 


L50 


L*9 


ADD 


MEMSIZ 


L50 


ETR 


ADRMSK 


* 


SBRR 


ADJCBM 


♦SEARCH SCALAR TABLE 


SRCHST 


HLT 


LSRCHS 




STX 


STSCAL 




STB 


SCALTB 



UNDEFINED LABEL ADR 

L3 

TEMP 1 

9NES 

L3 

L12 

FX SCALAR KEY 

C9NV H9LD SERCH W8RD 

TW6 

8NE 8R TW9 

START 8F FL SCALARS 

FL SPEC START 

FL SPEC END 

SEARCH SCALAR TABLE 
TEMP 1 

C8NV H8LD W8RD 
ALL BUT ADR MASK 
TEMP 1 

EXCEPT F8R SBRM AND SBRR 
REM8VE ZER8 BIT 
C8NV 



SIGN BIT 

LI 
L9CAL VARIABLE 

L2 
C8MM8N VARIABLE 

ADR MASK 

ADJUST F8R COMMON 
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START 9F FX 9R FL SCALARS 
SCAL TABLE ADR 





SUB 


SCALTB 




RSH 


i 




STA 


TABLCT 




CLAB 






STA 


NITCNT 




BRU 


155 


L51 


LDA* 


SCALTB 




SKG 


CNVHSW 




BRU 


152 




BRU 


L54 


L52 


UD8 


8NES 




SKM 


CNVHSW 




BRU 


153 




BRU 


156 


L53 


IDA 


J9RTW6 




AOD 


HITCNT 




STA 


NITCNT 


L54 


MIN 


SCALTB 




MJN 


SCALTB 


L55 


SKR 


TA8LCT 




eRu 


L51 




IDA 


CNVHSW 




SUB 


HITCNT 




ADD 


STSCAL 




SBRR 


SRCHST 


L56 


MIN 


SCALTB 




LDA* 


SCALTB 




SBRM 


ADJC8M 




SBRR 


SRCHST 


MNCR 


BREAK 




INCBRK 


HIT 


LINCBR 




MIN 


BREAK 




UDA 


i-BXLES 




SKG 


BREAK 




BRU 


PR2BIG 




SBRR 


INCBRK 



SCAL 
1 

TABLE 


TABLE 


ADR 


[ ceuNi 




INITIALIZE HIT 


C9UNT 


LI 






SCAL 


TABLE 


ADR 


C8NV 


H8LD SERCH W8RD 


12 






13 






8NES 






C8NV 


H8LD SERCH W8RD 


U 






U5 






ONE 8R TWO 




HIT C0UNT 




HIT COUNT 




SCAL 


TABLE 


ADR 


SCAL 


TABLE 


AQR 


TABLE C8UNT 


16 






C9NV 


H8LD SERCH W8RD 


HIT CeUNT 




START 8F FX QR FL SCALARS 


SEARCH SCALAR TABLE 


SCAL 


TABLE 


ADR 


SCAL 


TABLE 


ADR 


ADJUST F8F 


I C8MM8N 


SEARCH SCALAR TABLE 
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BREAK 

LABEL X LEAST 

BREAK 

PR8GRAM T88 BIG 

INCR BREAK 
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♦ST8RE T8 BRK 



*X SAVED 




STBRK 


HIT 


ISTBRK 


L57 


SBRM 


NXW8RD 




LDB 


9PMASK 




SKM 


BLKL9P 




BRU 


L58 




SBRR 


STBRK 


L58 


STA» 


BREAK 




SBRM 


INCBRK 




BRU 


L57 


♦PR9CESS TRA 


VECT 


TRAVEC 


MLT 


ITRAVE 




STB 


VECADR 




STA 


VECCNT 




BRU 


L61 


L59 


SBRM 


NXW8RD 




STA 


NAME1 




SBRM 


NXW8RD 




STA 


NAME2 




SBRM 


SRCHRP 




STA* 


VECADR 




STA 


LNKPTR 




LDA* 


LNKPTR 




SKA 


8NES 




BRU 


160 




LDA 


REQBIT 




STA* 


LNKPTR 


L60 


MIN 


VECADR 


L61 


SKR 


VECCNT 




BRU 


L59 




SBRR 


TRAVEC 



NEXT W8RD 
8P MASK 
BLK L6P 
LI 

ST8RE T8 BRK 
BREAK 

INCR BREAK 
L2 



VECT ADR 
VECT C8UNT 
LI 

NEXT W8RD 
NAME 1 

NEXT W8RD 
NAME 2 

SEARCH LINKS 
VECT ADR 
LINK PNTR 
LINK PNTR 
8NES 
L3 

REQUIRED BIT 
LINK PNTR 
VECT ADR 
VECT C8UNT 
L£ 
PR8CESS TRA VECT 



RETURN PNTR 



*SERCH 


LINK 


TABLE 




SERHLT 


MLT 


LSERHL 






LDA 


ENT 


ENT 




ETR 


ADRMSK 


ADR MASK 




ADD 


1STIAD 


FIRST INST ADR 




MRG 


BRUM9P 


BRU M6P 




STA 


CaRENT 


CORRECTED ENT 




IDA 


NAME1 






LD8 


«70000000B 






SKM 


120000000B 


TEST F8R SYS SPR0G* 200 « g35 




&RU 


* + 2 






BRU 


L62 






SBRM 


SRCHRP 


SEARCH LINKS RETURN PNTR 




BRU 


L63 


LI 


L62 


ETR 


8BIT0P 


8 BIT 8P MASK 




RSH 


15 


17 


L63 


SBRM 


CKPRAD 


CHECK PNTR ADR 




SBRR 


SERHLT 


SERCH LINK TABLE 


*CHECK 


PNTR 


ADR 




CKPRAD 


HIT 


LCKPRA 






STA 


LNKPTR 


LINK PNTR 




CIS 








SKE 


T0PMEM 






STB 


MJFPRR 


MINUS IF PR9GRAM REQUIRED 




LDA* 


LNKPTR 


LINK PNTR 




SKA 


REQBJT 


REQUIRED BIT 




BRU 


L64 


LI 




SKA 


9NES 


8NES 




SBRR 


CKPRAD 


CHECK PNTR ADR 




IDA 


ENT 


ENT 




SKA 


TAQP9P 


TAG PdP BITS 




SBRR 


CKPRAD 


CHECK PNTR ADR 




BRU 


L65 


L2 


L64 


IDA 


SIGN 


SIGN BIT 




STA 


MJPPRR 


MINUS IF PROGRAM REQUIRED 


L65 


LDA 


C0RENT 


CORRECTED ENT 




STA* 


LNKPTR 


LINK PNTR 




SBRR 


CKPRAD 


CHECK PNTR ADR 



2L6 



PAGE 19 



"SEARCH LINKS 


RETURN PNTR 




SRCHRP 


HLT 


LSRCMR 






LDA 


LINKX 


LINK X 




SKA 


9NES 


8NES 




BRU 


L66 


L4 




BRU 


L70 


L3 


L66 


LDX 


LINKX 


LINK X_ 




LD8 


9NES 


9NES 


L67 


LDA 


NAME1 


NAME 1 


L68 


EAX 


2/2 


2 




SKM* 


seTLTa 


B6TT9M LINK 




BRX 


L68 


L2 




LDA 


NAME2 


NAME 2 




SKM* 


B8TLT1 


B8TT9M LINK 




BRX 


L67 


LI 


L69 


STX 


TEMPI 


TEMP 1 




LDA 


TEMPI 


TEMP 1 




ETR 


ADRMSK 


ADDRESS MASK 




SKQ 


9NE 


9NE 




BRU 


L70 


L3 




BRU 


L7i 


L8 


♦ MAKE 


ENTRY IN 


REQUIRED PR9GRAMS LIST 


L70 


LDA 


LINKX 


LINK X 




SUB 


THREE 


THREE 




STA 


LINKX 


LINK X 




SKG 


LNKXMN 


LINK X MIN 




BRU 


PR2BIG 


PR9GRAM T99 




STA 


TEMPI 


TEMP 1 




LDX 


TEMPI 


TEMP 1 




EAX 


?-» 2 


2 




LDA 


NAME1 


NAME 1 




STA* 


B9TLT2 


B8TT8M LINK 




LDA 


NAME2 


NAME 2 




STA* 


39TLT1 


B9TT9M LINK 




CLAB 








BRU 


L69 


L7 
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TBL-2 



TBL-1 



BIG 



TBL-2 
TBL-1 



L71 



EAX* 
CXA 
ETR 
SBRR 



88TLT 

ADRM.SK 
SRCHRP 



B9TT9M LINK TBI 

ADR MASK 

SEARCH LINKS RETURN PNTR 
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♦CHECK F8R ALL PR8GS IN 

CKALPG LDX LINKX 

LDA REQBIT 
♦NAMED SUBPR8GRAMS 

L72 EAX 2,2 

SKA* 38TLT 

8RU RDENDP 

8RX 172 
♦NUMBERED SYSTEM SUBR8UTINES 

LDX §2408-2778 

L73 SKA 277B#2 

BRU RDENDP 

BRX L73 



LINK X 
REQUIRED 



BIT 



(240> 



B8TT8M LINK TBL 

11 
■277) 



READ T8 END 8F PR8GRAM 



♦ALL PR8GS IN 
ALPRIN M8VE 
BRU 



L74B 



♦ ADDR 



LDX 
IDA 
STA 
LDA 
STA 
SBRM 
CAX 
LDA 
ETR 
CAB 
CHAIN 
LDX 
LDX 



iCESYMjCESYMPjA 

L74G 

CESYMP 

0#2 

NAME1 

1#H 

NAME2 

SRCHRP 

§377778 

HEADER 

CESYMP 

Z* 2 



VALUE 8F THE LABEL 



♦ G8 D8WN CHAIN 



L74C 


CBA 






XMA 


0*2 




STA 


TMP1 




ETR 


*77740Q00B 




ADM 


o#a 




IDA 


TMPl 




ETR 


«37777B 




CAX 






8NE 


ZER8*L74C 


L74D 


IDA 


THREE 




ADM 


CESYMP 


L74G 


LDA 


CESYMS 




SKG 


CESYMP 




bru 


L74A 




BRU 


L74B 


L74A 


LDA 


MPRHST 


L74 


STA 


HEADST 




LDA* 


HEADST 




SKA 


8NES 




8RU 


L75 




BRU 


STUPES 


L75 


SKA 


MAPTYP 




BRU 


17k 




LDX 


HEADST 




IDA 


^a 




SUB 


3#2 




LDB 


3#2 


L76 


SBRM 


PVECLT 




LDA* 


HEADST 




BRU 


L7* 


♦PROCESS VECT 


LAST TIME 


PVECLT 


NLT 


LPVECL 




STB 


VADR 




STA 


VC8UNT 




BRU 


L79 


L7S 


LDX* 


VADR 
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NEXT EXT SYMB 



MAIN PR8G HEAD START 
HEAD START 
HEAD START 
8NES 

LI 

SET UP EO 

MACH PR8G TYPE 

HEAD START 

3 
3 

PR8CESS VECT LAST TIME 
HEAD START 
L3 



V ADR 

V C8UNT 
LI 

V ADR 



IDA 


0/3 


STA* 


VADR 


MIN 


VADR 


L79 SKR 


VC8UNT 


BRU 


178 


SBRR 


PVECUT 


*SET UP EO 




STUPES LDA 


HEADST 


ETR 


ADRMSK 


STA 


EOADR 


MRG 


TAGBIT 


STA 


EOTAG 


IDA 


EOADR 


MRG 


INDBIT 


STA 


EOIND 


IDA 


L9WC9M 


SK3 


EOADR 


BRU 


PR2BIG 


SUB 


EOADR 


STA 


EOSIZE 


IDA 


T8PMEM 


ADD 


9NE 


STA 


RUNT9P 


SUB 


EOADR 


STA 


C8UNT 


IDA 


EOADR 


STA 


TEMPI 


MRG 


-3777B 


STUP1 ADD 


I4000B 


SKG 


L8WC8M 


BRU 


«*2 


BRU 


LDSYS 


SKE 


L8WC8M 


BRU 


* + 2 


BRU 


LDSYS 


BRS 


4 





V ADR 

V ADR 

V C6UNT 
L2 

PROCESS VECT LAST TIME 
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HEAD START 

ADR MASK 

71 

TAG BIT 

73 

71 

IND BIT 

7* 

L8WEST CQMMBN ADDRESS 

71 

PROGRAM T68 BIG 

71 

72 

LAST ADR 6F MEM9RY 

RUN-TIME T9P MEM.9RY 

71 

CeUNT 

71 

TEMP 1 

RELEASE UNUSED PAGES 



RELEASE PAGE* N8T USED 





BRU 


3TUP1 


#18ADING C9MPLETE 


LDSYS 


BRS 


17 




M9VE 


*0>FRU3#A 


$ENDtD 


BRS 


10 TERMINATE 


#NEED 


M9RE PR9GS 


NDPR9G 


IDA 


STNXPR 




STA 


1STIAD 




STA 


BREAK 




BRU 


RNXPLK 


*READ 


T8 END 


0F PROGRAM 


RDENDP 


IDA 


PRTYPE 




LDB 


f70000000B 




$KM 


MAPTYP 




BRU 


LIU 


L112 


SBRM 


NXW9RD 




SKE 


APEND 




BRU 


L112 




BRU 


NDPR8G 


Lin 


SBRM 


NXW9RD 




SKE 


CPEND 




BRU 


Lill 




3RU 


NPPR9G 


*NEXT 


WORD 




NXWBRD 


HLT 


LNXW9R 


L81 


WIS 


INFLE 


L250 


BNE 


E9LWRD#L83 




BRU 


L84 EN 


L83 


BNE 


E9FWRD/L85 




IDA 


APEND 




SKN 


PRTYPE 
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F9RK AND CALL RUNTIME 



START 9F NEXT PR8G 

BREAK 

READ NEXT PR8GRAM BL9CK 



ASSEMBLED PR8G END 



COMPILED PR9G END 



END 9F LIBRARY* MISSING TYPE8UT 





LDA 


CPEND 






BNE 


CURWRD*L85 




L.220 


SBRM 


aSUBF 






8RU 


LSI 




LS5 


STA 


CURWRD 






BRR 


LNXW8R 




♦MISSING TYPE8UT 




L84 


BRS 


17 




L200 


LDX 


T9PMEM 






M9VE 


LINKX#TMP2,A 




L205 


IDA 


0#2 






SKA 


REQBIT 






BRU 


L210 




L207 


EAX 


»3# 2 






IDA 


TMP2 






ADD 


THREE 






STA 


TMP2 






BNE 


ZER8*L205 






BRU 


L220 




L210 


STX 


TMP1 






LDA 


■ 2#2 






STA 


NAME! 






LDA 


*t*2 






STA 


NAME2 






PRQ 


MJSSQT 


MISSING QT 




PRQ 


NAME1 






LDX 


TMP1 






BRU 


L207 




*PR©GRAM T99 


BIG 




PR2BIG 


PRQ 


9FL8QT 




ERRPT 


LDB 


•70000Q00B 






LDA 


§200000008 






SKM 


NAME! 






BRU 


♦ ♦2 






BRS 


to 






LDA 


NAME1 
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SKM 


ALLDOL 


BRU 


**a 


BRS 


10 


PRQ 


ERRQT 


IDA 


■NAME1 


UDB 


i»l 


UDX 


*1 


BRS 


34 


BRS 


10 
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ERR8R PSINT 



TYPE SPR6G NAME 



*ILLEGAU FILE 
$ILLTAP HLT 
$ILUTPi PRQ 

BRU 



IL.LF1 



ILLF2 



ZR9 

PRQ 
BRU 
ZR© 
PRQ 
BRU 



UHLTA 
ILIFQT 
ERRPT 
UHLTA 

ILQT1 

JLUTP1 

LILLTA 

ILQT2 

ILUTP1 



ILLEGAL FILE 



*MAIN PROGRAM 
$MANMIS PRQ 
BRS 



MISSING 
ILQT3 
10 



*6PEN SUBPROGRAM BINARY FILE 

$6SUBF HLT L9SUBF 

BRU Zl 

ERR2 PRQ FNBQT 

Zl BRS 17 

PRQ ISUBGT 

Z2 LDX i*l u-r-f- 



FILE N&T BIN 

CLOSE PREVIOUS FILE 

CLEAR THE TTY INPUT BUFFER 





BRS 


1* 




BRS 


U 




PRQ 


FR8MQT 




CLEAR 






LDX 


ilOOOOB 




BRS 


15 




-BRU' - 


— - Zi~ 




BRS 


16 




©RU-~ 


l\ 




XA8 






3NE 


»2,ERR2 




STB 


INFLE 




M8VE 


fl#FRUB#A 


$E8SUBF SBRR 


8SUBF 


*READ 


ASSEMBLED TEXT 


$ASSM 


M8VE 


LINKX # H8LDLX,B 




M8VE 


CESYMP,CESYMS,B 




M0VE 


ZER8>MIFPRR,B 




MIN 


1STIAD 




LDA 


1STIAD 




$TA 


L8C 




M8VE 


8NE/RELWCT # A 




LDA 


PRTYPE 




STA* 


1STJAD 




BRU 


L125 


ARPBIN 


LDA 


RELWRD 




SKR 


RELWCT 




BRU 


L125 




SBRM 


NXW8RD 




M0VE 


■7jRELWCT/B 


L125 


ABC 






LSH 


3 




STB 


RELWRD 




CAX 






BRU 


* + l#2 


*REU6CATI9N BITS TABLE 




BRU 


ABSBIN 
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REL8CATI8N W6RD REGISTERS C8UNT 
FIRST W8RD 8F REL REGISTERS 





BRU 


L180 




BRU 


R14BIN 




8RU 


R24BIN 




BRU 


CTRWD 




BRU 


1180^, 




BRU 


4MflC 




BRU 


R14BJN 


♦C9NTR9L WQRD 




CTRWD 


SBRM 
ABC 


NXW8RD 




USH 


3 




CAX 






BRU 


**l#2 


♦C8NTR8L W6RD 


TABLE 




BRU 


L135 




BRU 


P8PD 




BRU 


1130 




BRU 


SKIP 




BRU 


L160 




BRU 


SKIP 




BRU 


1170 




BRU 


SKIP 


L130 


CIA 






LSM 


6 




SKG 


■ 2 




BRU 


* + 2 




CIA 






CAX 






BRU 


*+l#2 




BRU 


1132 




BRU 


ARPBIN 




BRU 


ARPBIN 


SKIP 


SBRM 


NXW8RD 




SKE 


i*l 




BRU 


SKIP 


SKIP1 


STA 


RELWCT 




BRU 


ARPBIN 


R24BIN 


SBRM 


NXWSRD 




ADD 


1STIAD 



1 EXT SYM ADDR (M8D 2**14) 
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3 RELOCATE (M8D 2**24) 

4 ESCAPE 

5 EXT SYM ADDR (M8D 2**24) HANDLED AS 14 BIT 
6 

7 LITERAL REFERENCE 



BINARY F8LL8WS 

1 P8P 

3 8P DEF 

4 EXT SYMB8L DEF 

5 IDENT 

6 EXT SYMBOL REF 

7 SYMB8L TABLE 



END THIS PR8G 



SET T8 GET NEW SET 8F 3BIT REGISTERS 

24 BIT RELOCATABLE 
1ST INSTRUCTION ADDR 



ABSBI 
U33 

L134 



N 



RUBIN 



P6PD 



L132 



♦CLEAR 



L129 



£RU 
SBRM 

LDX 

STA 

MJN 

LDA 

ADD 

SKQ 

BRU 

BRU 

SBRM 

STA 

ADD 

ETR 

XMA 

ETR 

ADD 

BRU 

LSM 

CAX 

UDA 
MRQ 
STA 

BRU 

SKN 

BRU 

M8VE 

LDA 

MRG 

STA« 

C8RE 

LDA 

ADD 

SUB 

STA 

M8VE 

CLA 

STA* 

MJN 



1133 

NXW8RD 

LQC 

Q#2 

L8C 

T8PMEM 

LINKX 

L8C 

PR2BIG 

ARPBIN 

NXW9RD 

TMP1 

1STIAD 

ADRMSK 

TMP1 

ALBADR 

TMP1 

L133 

6 
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14 BIT (ADDR FLD) REL8CATABLE 



PR8GRAMMED 9PERAT8R 
P8P LINK ADDR 



DEF 



N8TEJ USER 
RUNTIME 



BRUM8P 
L8C 

o#a 

ARPBIN 
MIFPRR 

L131 

L8C/STNXPR#A 
MAPTYP 
L8C 

PRSTRT 
BETWEEN END 8F PR8G AND LINKS 
T8PMEM 
LINKX 
STNXPR 
TEMPI 

STNXPR#TEMP2#A 

TEMP;? 
TEMP2 



P8P LINKS WHICH CONFLICT WITH 

P8P»S WILL BE 8VERWRITTEN BY RUNTIME 



END L8ADING THIS SPR8G 





SKR 


TEMPI 




QRU 


U129 




BRU 


CKAtPG 


L131 


M8VE 


N9UDUXjLINKX# 




BRU 


RDENDP 


L135 


LSH 


21 




ETR 


•37777B 




ADM 


L9C 




3RU 


ARPBIN 


# 

♦EXTERNAL SYMB8L DEFINITION 


L160 


SBRM 


REPACK 


L161 


SBRM 


SRCHRP 




STA 


LNKPTR 




SBRM 


NXW9RD 




ADD 


1STIAD 




MRG 


BRUM8P 




XMA* 


LNKPTR 




ID3 


8NES 




SKM 


REQBIT 




BRU 


* + 2 




STB 


MIFPRR 




IDA 


NAMES 




BNE 


SYSSUB#L162 




LDA 


NAME1 




SKE 


240SYS 




- BRU 


L162 




STB 


MIFPRR 




M8VE 


1STIAD/2^0B*A 


L162 


SBRM 


NXW8RD 




BEQ 


QNESiSKlPl 




SBRM 


REPCK1 




SRU 


L161 
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CHECK ALL PR9GRAMS IN 



BIN F8LL8WS, SET L8C C8UNTER 



MINUS IF PR8GRAM REQUIRED 
1ST INSTRUCTI8N ADDR 



♦EXTERNAL SYMB8L REFERENCE 



♦ENTER 


IN CURRENT EXT* SYMBt 


TABLE 


L170 


SBRM 


REPACK 




L171 


SBRM 


SRCHRP 


SEARCH LINKS RETURN P8IN 




§TA 


tNKPTR 






LDA* 


LNKpTR 






SKA 


ZER8 






BRU 


1172 






UP A 


REQBIT 






STA* 


LNKPTR 




L172 


LDA 


NAME1 






STA* 


CESYMP 






MJN 


CESYMP 






LDA 


NAME2 






STA* 


CESYMP 






MJN 


CESYMP 






SBRM 


NXW8RD 






CLA 








STA* 


CESYMP 






MIN 


CESYMP 






SBRM 


NXW8RD 






8EQ 


8NESiSKIPl 




L173 


SBRM 


REPCK1 






BRU 


L171 




*H BIT EXT 


SYM8 REF 




L180 


SBRM 
CAB 


NXWQRD 






ETR 


ALBADR 


ALL BUT ADDRESS 




STA* 


L8C 






CBA 








ETR 


ADRMSK 






MUL 


THREE 






ISM 


23 






ADD 


CE3YMS 


START 8F CE« SYM» TABLE 




ADD 


TW8 


3RD W8RD 8F 3 W8RD ENTRY 


L183 


CAX 








IDA 


0*2 






ETR 


ADRMSK 






SKE 


ZER9 
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3RU 


L183 


IDA 


uec 


XMA 


0/2 


ETR 


ALBADR 


ADM 


Q#2 


8RU 


U134 
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♦REPACK NAME/ 
REPACK ZRQ 



REPK1 



SBRM 

ABC 

USH 

RCH 

LSH 

CXB 

USH 

RCH 

USH 

CXB 

USH 

STA 

CBX 

SBRM 

RCH 

USH 

CUB 

USH 

CX8 

USH 

RCH 

USH 

CXB 

USH 

STA 

BRR 



6-BIT CHARS 
UREPAC 

NXW6RD 

6 

BX+C8 
2 

6 

BX+C6 
2 

6 
NIAME1 

NXW8RD 

CA+AX+XB 

6 



6 

BX^CB 
2 

6 

NAME2 
UREPAC 



T8 8-BIT CHARS 



REPCK1 ZR9 


LREPAC 


BRU 


REPK1 


* 

♦INPUT QHAR AND TEST 


$ICTP9P TCI 


CHAR 


EAX* 





CXA 




ETR 


§377B 


SKE 


CHAR 


8RR 





MIN 


Q 


BRR 

it 





♦PRINT CHARACTER 


$PRCINK BRU 


PRCPBP 


$PRCP9P EAX* 





CXA 




ETR 


«?377B 


PRCl CI9 


«1 


SKE 


il55B 


8RR 





LDA 


•152B 


BRU 


PRCl 


♦PRINT QU0TE 




$PRQLNK BRU 


PRQP5P 


SPRQP9P EAX» 


Q 


CXA 




ETR 


ADRMSK 


LDX 


il 


UDB 


?»1 


BRS 


3* 


BRR 
* 





* 

♦ Q U 8 


T E S 



READ 2ND W8RD SNIY 
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$ILL,QT ASC 
$MEMQT ASC 
$LMPOT ASC 
$LSU8QT ASC 
$FR8MQT ASC 
$FNBQT ASC 
*8FL0QT ASC 
SILLFQT ASC 
$JLQT1 ASC 
$ILQT2 ASC 
$ILQT3 ASC 
$ERRQT ASC 
$MSGTRM ASC 
$MISSQT ASC 
$ALtD9L ASC 
NEWSQT ASC 



$M>>/» 

$t©AD MAIN FRBGRAM/' 

$U9AD SUBPROGRAMS/' 

$FRftM FILE /' 

$FJLE NOT BINARY/' 

^PROGRAM TOO BIG/' 

$ILLEGAL FILE/' 

$EXTERNAL SYMBOLS NOT ALLOWED/' 

$SPECIAL RELOCATION NOT ALLOWED/' 

$L9Ap MAIN PROGRAM FIRST/' 

^CURRENTLY LOADING /' 

/ ' MESSAGE TERMINATOR 

$MISSING /♦ 

$*$ f ALL DOLLARS 

$VERSI8N 6»0 V NEWS MSG 
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* CONSTAN 

EOFWRD DATA 276575378 

EOLWRD DATA 33266555B 

FTBLEi JOB TBLE^l 

FTBLE ZR8 TBLE 

STOPMEM ZRO 27776B 

MSEVEM DATA »7 

$8NES DEC ml 

$ZER0 DATA 

$SNE DEC 1 

$TW8 DEC 2 

$THREE DATA 3 

MSIX DEC *6 

MTWELV DEC m\Z 

$SIGN ZR8 Qi* 

SIGNBT EQU SIGN 

EIGHT DATA 8 

8RUM8P BRU 

SYSSUB ASC 'SYS' 

240SYS ASC '240 f 

SUNDLAD DATA 230B 

MABSLS DATA »30B 



T S 
END OF FILE WBRD 
END OF LIBRARY WORD 
F8RK TABLE ADDR 

T8P 8F RUNTIME MEM8RY 



MINUS 
MINUS 



SIX 

TWELVE 



BRU MBP 



UNDEFINED LABEL ADDR 

MINUS ABS LINK SIZE 



STXM8P 


STX 





EAXTAS 


EAX 


0/2 


8BIT8P 


9CT 


37700000 


8PMASK 


8CT 


17700000 


MPRTYP 


8CT 


04000000 


N8PMSK 


8CT 


60077777 


L6LL8P 


8CT 


00300000 


ABSLOP 


8CT 


onooooo 


DELLBP 


8CT 


00400000 


SYSU8P 


9CT 


00500000 


STLM8P 


DATA 


X5600000B 


$SBRHINO SBRM* 





MAPTYP 


DATA 


4000Q000B 


BiKuep 


8CT 


00600000 




8CT 


14600000 




8CT 


10600000 




8CT 


12400000 




QCT 


13000000 




8CT 


13400000 


9PTAB1 


CNA 






STA 







IDA 







ADD 







SUB 





8PTAB2 


EQU 


* 


REQBIT 


8CT 


10000000 


ADRMSK 


DATA 


37777B 


FXSKEY 


EQU 


* 


ARFXCK 


EQU 


* 


XLC8KY 


EQU 


# 


XSLCKY 


EQU 


♦ 


XSIBKY 


EQU 


• 


LNKARK 


EQU 


* 


TMPLKY 


EQU 


« 


DUMTKY 


DEC 


1820 


LBLKEY 


DEC 


3640 


DUMKEL 


DEC 


14560 


ALBADR 


8CT 


77740000 


6BIT6P 


8CT 


07700000 
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8 BIT 9P MASK 

d? MASK 

MAIN PR8G TYPE 

N8T 8P MASK 

LBL ISP 

ABS L8P 

DEL U8P 

SYS L8P 

SBRM M8P 

MACH PR8G TYPE 

BLK L8P 



8P TABLE 1 



8P TABLE 2 
REQUIRED BIT 

FX SCALAR KEY 
ARRAY*FX C8NST KEY 
FX C8NST-FL C8N5T KEY 
FL C8N3T«FX SCALAR KEY 
FX SCALAR-LBL KEY 
LINKAGE*ARRAY KEY 
TEMP-LINKAGE KEY 
DUMMY»TEMP KEY 
LBL KEY 
DUMMY KEY 
ALL BUT ADR MASK 
6 BIT 8P MASK 



TAGBIT 


EQU 


♦ 


TAG BIT 


NLSTBL 


NLT 


Q>2 


N8T LAST BL8CK BIT 


INDBIT 


MLT* 





IND BIT 


*BUFFER START 






TAGP8P 


8CT 


30000000 


TAG P6P BITS 


NIND3T 


ecT 


77737777 


N8T IND BIT 


C8DEST 


ZRa 


1200B 


L8AD PQINT F8R COMPILED 


$APEND 


DATA 


31Q62J.44B 


ASSEMBLED PR9G END 


$CPEND 


DATA 


324651528 


COMPILED PR8G END 




8RS 


43 






XA3 








ETR 


§77770C00B 






MRS 


*F8RL 






XAB 








8RS 


44 






BRU 


PS 




RELAB 


BRU 
END 


PS+1 
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C8DE 



1R6 



IDENT 9-3Q TEMPORARY ST8RAGE, RUNTIME PART 1 
9RIGIN AT 400 **##»**# 



9/30 11129 



PAGE 1 



*###* FIXED ST8RAGE L8CATI8NS ♦ #*#♦ 

* l»77fTSS STORAGE* 100-177*F8RTRAN P8PS, 

♦ 400*450 SYSTEM C8NSTANTS 



200*277«SYSTEM SUBROUTINES 



*R U N T I M 


E 


TRANSFER VECT8R 


$EOADR ZR8 





ABSt BASE 8F ERAS 


$EOTAG IRQ 







$EOIND ZR8 







$EADR1 ZR8 







$EOSIZE ZR8 







SFLTIND ZR8 







$SENStW ZR8 





SENSE LIGHT W8RD 


$SENSSW ZR6 





SENSE SWITCH W8RD 


$TA ZR8 





(410) 


$T3 ZR9 







$TX ZR8 







SERRC8N ZR8 







$zer8 ess 


1 


C8NSTANTS •- INITIALIZED AT RUN 


RTSM23 EXT 


# 


RIGHT SHIFT 23 


$8NE EQU 


* 


FIXED P8INT 8NE 


$FP8NE DATA 


1 


FL9ATING P8INT 1 


DATA 


20000000B 


$SIGN DATA 


40000000B 


$8NES DATA 


m 1 


(420) 


♦LINKS 






$LACB ZR9 







$LCLFLE ZR8 


Q 




$LCMPG8 ZR8 







$LD130 ZR8 







$LDECLF ZR8 







$LECH8 IRQ 







$LERR8R ZR8 








L8C 400 
STORAGE 



• TIME 



$LERMSG 2R6 1R6 PAGE Z 

SIFDIOO ZR8 

$UFJX IRQ 

$IFID00 ZR6 

$LFU©AT IRQ 

$LFXBND ZR8 

$LIFSNl IRQ 

$LIFSNW IRQ Q 

$LIFVFt ZR8 

SLIBISA ZR8 

$LL8CST ZR8 

SLSENST ZR8 

$UST8P ZR8 

$l>eWER ZR8 

SIPAUSE ZR8 

$II8SUB ZR8 

$LNDDMY ZR8 

$1830 ZR8 Q 

$LADSOO ZR8 

$LARCOO ZR8 

$LARDOO ZR8 

$LBFDOO ZR8 

SLCDBOO ZR8 

$LDNSOO ZR8 

SUFDTOO ZR8 

$LFMTOO 2R8 

$tICDOO ZR8 

$UICFOO ZR8 

SUICUOO ZR8 

$LMPROO ZR8 

$UCWOO ZR8 Q 

SLIMTOO ZR8 

$LRBIOO ZR8 

$LTJN ZR0 

*UTTIOO ZRQ 

$LINF00 ZR8 

$LWCSOO ZR8 

$lFCSOO ZR8 

$UW6T00 ZR8 



$LSETT 


ZR9 





$LSTRTC 


) ZR9 


Q 


SLRITOC 


) ZR9 


Q 


SURNFOC 


) ZR9 





SUFTS9P 


I ZR9 


Q 


$IDBIXF 


I ZR9 





SRETURN 


\ BSS 


X 


SLIB1 


BSS 


1 


$UIB2 


BSS 


2 


$LIB3 


BSS 


1 


$LIB4 


BSS 


2 


*UB5 


BSS 


2 


$LJB6 


BSS 


1 


$LIB7 


BSS 


1 


# 

*F L A 


G S 




$FARF 


ZR9 





$FERR 


ZR9 





$FE9R 


ZR9 


Q 


$FE9F 


ZR9 





$FI8DIR 


I ZR9 


Q 


$FNAME 


ZR9 





SFRUB 


ZR9 





$FSSW 


ZR9 





$FDBUG 


ZR9 





$FRUN 


ZR9 





$TRUNQ 


BSS 


1 


$PTEMP 


BSS 


X 




BSS 


1 


$QTEMP 


BSS 


X 


$GTEMP1 


. BSS 


I 


SQB99T 


BSS 


X 


$TEMP1 


BSS 


X 
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»1*A,R F8RMAT# OsLETTER 9 F6RMAT 
«1*ERR8R PAUSE/ OiPAUSE 

»1»E9R REACHED 8N INPUT 
-1«E8F READ 

1/9 DIRECTI9N *1»8UTPUT 



»1*N8 2ND RUB9UT 
SENSE SW SET/RESET 
•l^DEBUG M9DE/ OCMMD 



M9DE 9R PR8G RUN 



AGTTP1 
FIXTMP 

$TEMP3 

FUAXRG 

FXBAXR 

TMPIZ 

$TEMP3 

FIXTP2 

TMPX 

$TEMP4 

FLAG 

DPTMP1 

TMPA 

$XM 

$ZE 

$ZM 

$PART1 

CMSIZ 

SPART2 

SHFCNT 

$TEMPA 

$XREG 

$EADR 

$EADR2 

$eVFINO 



EXT 

EXT 
BSS 

EXT 

EXT 

EXT 
BSS 

EXT 

EXT 
BSS 

EXT 

EXT 

EXT 
BSS 
BSS 
BSS 
BSS 

EXT 
BSS 

EXT 
BSS 
BSS 

BSS 
BSS 
BSS 



SD8XTEM BSS 
D8FTEM EXT 
$D9FTAD BSS 
SD8FXIT BSS 
SEOSIZT BSS 
$EXIT BSS 
$DBUF BSS 
$PBUFJ BSS 
$TXI BSS 

$Txe BSS 

MSAVEX EXT 
$CHCNT BSS 
$BE BSS 
$CC BSS 



TEMPI 
TEMPI 

X 

TEMP? 

TEMP3 

TEMP2 

1 

TEMP3 

TEMP3 

1 

TEMP^ 
TEMP4 
TEMP4 

X 
X 

X 

X 

PARTI 

1 

PART2 

1 

I 

1 

X 

X 

X 

D8XTEM 

1 
X 
X 

1 

1 
1 

i 

X 

TX9 

X 
X 
X 



AGT 
FIX 

FL9AT 
FIX 

FSCAN 

FIX 

FSCAN 

FLA FLS 

LDP STQ DPA DPS 

FSCAN 

DPM 

FL A»S W M»P 

FLA*S-M-D DPM 

FTA»S-M*D 

FSCAN 3 BIT 9CTAL 8R 8 BIT CHAR MASK 

FTA"S»M*D 

FSCAN SHIFT C9UNT 

FLA«S*M»D 

FLA*S*M*D-N DPM F-XSD/FA/NA AG/ALF*X 

F«XSD STRTDM ENDDMY 

8VERFL9W IND 

D8X 

D9F 

D9F 

D9F 

F»XFA/NA 

LTX FTA-S^M-D 

FSCAN DEC« T9 BINARY C9NV* BUFFER 

FSCAN X INSIDE F6RMAT SCAN 
FSCAN X 8UTSIDE FORMAT SCAN 
1/6 HANDLERS 
FSCAN CHAR* C9U-NT 
FSCAN BINARY EXPONENT 
FSCAN 8UTPUT CHAR, C8UNT 
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$D BSS X 

$DE BSS 1 

$DW BSS 1 

$FW 8SS I 

$P BSS I 

$ARGSGN BSS 1 

$ARGADR BSS 1 

$MRTNAD BSS X 

$FCPNTR BSS 1 

$FWPNTR BSS 1 

$WCPNTR BSS I 

*WWPNTR BSS X 

*DS BSS 1 

$EP BSS X 

$IF BSS 1 

$IZ BSS X 

$8T BSS 1 

$ACBBJT BSS 1 

SACBCHR BSS 1 

SARRAY ZR6 









zm o 

ZR9 

ZR9 

EXT ERITBL-ERILIM*! 

ZR8 

BSS 10 

EXT #»1 

EQU #•! 



$eVFLID IRQ 
$FIXLNK ZR8 
$FLTLNK IRQ 
$ELEMTS ZR8 

$MPRX 

$CNAR 

$CCHR 

ERLSZE 

$ERtPT 

$ERUTBL 

ERLIIM 

ERLIIM 



FSCAN DECIMAL PLACES 

FSCAN DECIMAL EXP9NENT 

FSCAN SPECIFIED DATA FIELD WIDTH 

FSCAN FIELD WIDTH 

FSCAN P SCALE FACT9R 

FSCAN ARGGUMENT SIGN 

FSCAN ARGUMENT ADDBSSS 

FSCAN MEM9RY RETURN ADDBSSS 

FSCAN FORMAT CHAR* P9INTER 

FSCAN FORMAT W9RD POINTER 

FSCAN IQBUF CHARt POINTER 

FSCAN ISBUF W9RD POINTER 

FSCAN DATA §PIC§* IN F9RMAT FLAG 

FSCAN EDIT JN PR8GBSSS FLAG 

FSCAN I. TYPE DATA SPEC. FLAG 

FSCAN IMPLICIT ZER9 IN F9RMAT FLAG 

FSCAN 8UTPUT TRANSACTIQN FLAG 
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CURRENT CHARACTER 

ERR8R LIST SIZE 
ERR8R LIST PTR 
ERR9R LIST TABLE 



♦I/O FILE NUMBERS 
*ENTRY: U W8RD)I 
$FLNMT BSS 10 
I6TEND EQU * 



FILE N8t AND 1/9 DIRECTI9N BIT IN SIGN P9SITI8N 



I8TEND EXT 
I8TS2E EXT 
$FLNPTR ZR8 
$FNPTR BSS 
SFNPTR2 BSS 
$FNBUF 3SS 
SFN8UF3 BSS 
$FNCTR BSS 



FLNMT-19TEND+2 



2 

2 
Z 
X 
X 



1/8 TABLE SIZE*2 

FILE NAME PTR 

PTRS T6 STRING DURING L98K*UP FOR 8PEN 
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$CURFLE ZR8 
$LDPNT EQU 
LDPNT3 EXT 
0BPST EXT 
$PR8GRS ZR6 
$TBLE BSS 
TBLE1 EXT 
TBLE3 EXT 
TBLE6 EXT 
$MSCNT ZR3 
$FC BSS 
$EXPSGN BSS 
SLSTCHR BSS 
SLCLAFL BSS 
SXSDGTS BSS 
$NC BSS 
$Q2 ZR8 
$DC BSS 
$FT BSS 
$NXTCNR BSS 
$PC BSS 

$RC BSS 
$STKADR BSS 
$WR BSS 
SADRLPL ZR8 
VADRLL EXT 
$ADRLPS ZR8 
VADRLS EXT 
NSTIVL EQU 





1200B 

LDPNT+ 

LDPNT* 



7 

TBLE+1 

TBLE+3 

T81E*6 



1 

X 

t 

1 

i 

1 



I 
i 
1 
1 
1 
1 

X 



LPSTK+ 



LPSTK* 

4 



3 

10B 



CURRENT FILE NUMBER 

. L8AD POINT/ SEE CQOEST IN LDRt 

6BJECT PR8G START 

F0RK TABLE 



MULTIPLE SPACECNTUNT 



3»NSTLVLL«6 
3 



FSCAN DIGITS C8UNT 

FSCAN F8RMAT TYPE 

FSCAN NEXT CHARACTER 

FSCAN INTEGER DIGIT COUNT 

FSCAN REPEAT C8UNT 

FSCAN LEFT PARENTHESIS STACK ADDBSSS 

FSCAN WIDTH REXTIRED 

FSCAN LPSTK ADR T8 TEST TABLE FULL 

FSCAN LPSTK ADDBSSS F8R INITIALIZE 

FSCAN MAXt NESTING LEVEL IN F8RMATS 



$LPSTK BSS 


(R)NSTLVL 


LPSTK3 EXT 


LPSTK+3 


LPSTK* EXT 


LPSTK+4 


♦DEBUGGER ST8RAGE 


BKOADR EXT 


#*1 


$BK1ADR IRQ 





$BK2ADR ZR8 





$BK3ADR ZR0 





BK4ADR EXT 


# 


$FFUdAT zRa 


o- 


$FNEXT IRQ 





SDADRJN ZR8 





$DBN ZR8 





$DD8TA ZR9 





$DD8TR ZR9 





$DNMCHR Z*8 





$DNUM3 ZR9 





$DNAME1 ZR8 





SDNAME2 ZR9 





$L8CTMP ZR9 





SMRSTl ZR8 





$DTMPJ ZR9 





$DTMP2 ZR9 





SDVBASE ZR9 





$NSUBSC ZRd 





$SCMAX ZR8 





SUPR8GS ZR8 





SUDATAS ZR8 





$UPR8GN ZR8 






FSCAN LEFT PARENTHESES STACK TABLE 
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BREAK P8INT 1 ADDRESS 



ADDRESS INCREMENT 

BREAK PT NUMBER (1*2*3) 

ABS. DBT (STA LABEL N8 ) 

REL- D6T (N8t OF STATEMENTS FR8M DD9TA) 

NAME CHARACTER 



M8ST RECENT STATEMENT LABEL 



VARIABLE BASE ADDRESS 
NUMBER 8F SUBSCRIPTS 
SUBSCRIPT MAX 
USER'S PR8GRAM START 
USER'S DATA START 
USER'S PR9GRAM END 



*G8T8 FILE RETURN 
$SG8T8 ZR8 Q 
$KG8T8 ZR9 
SKG8T9J, ZR8 
$KG8T82 ZR8 
$WG8T8 BSS 7 



C8DE ST8RAGE 



SWITCH T8 
C8NSTANTS 



PREVENT 
ST9RAGE 



NEW WRITE 



C8DE ST8RAGE 



$EWG EQU * END ST8R. 1R6 PAGE 8 

$BRKRP £R0 Q BREAK AND ESCAPE RETURN LdC, 

$BRKRA BSS 2 
$BRKRX ZR9 

END 



2R6 
# 

# 

$F8RL EQU 



IPENT 9*30 RUNTIME* PART 2 

8RIGIN THIS PACKAGE AT 300008 (SAME AS 2L ) 

5455B F9S SMT RELABELING BYTES (RUNTIME) 



9/30 U:29 
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*rch a 

GCD 

FCL 
FCR 
BXC 
XBC 
CA 

CB 
# 

AB 

BA 

BX 

XB 

XA 

AX 

M8VE 

M8VE1 



M8VE2 



M8VE2 



STZ 

BEQ 
BNE 
SETT 



P DEFI 

epo 
ePD 
app 
app 
app 

EQU 

EQU 

CX 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

MACR8 

NARG 

IF 

CLiD( 

ELSF 

LPtD( 

ENPF 

EQU 

RPT 

STtD( 

EQU 

ENDR 

ENDM 

MACR6 
MACR9 
MACR9 
MACR8 



NITI8NS 

53700000B* I, 
0600^50B#2 

4600224B#2 
4600022B#2 
24600040B#2 



1 



FULL CYCLE LEFT 
FULL CYCLE RIGHT 
B T8 X, CLB 
X T8 B, CLX 



ARPAS DEMANDS 



1 CLEAR A 
2 

EQU 20000000B 
4 A T8 B 
10B 
20B 
40B 

aooB 

*00B 

D 

'D(1$1j2) '«* ?0 f 
M8VEI) 

I 
M8VE1) D(l) 

2 

M8VE1-2 
M8VE1) 0CM8VE2) 
M8VE2H 



A ST8RE ZER8i CLA I STA A(l) i ENDM 

D; SKE DU>; BRU *+2J BRU D(2)J ENDM 

0$ SKE D(l); BRU D{2); ENDM 

P; M9VE ■•l/P(l)#D{2) j ENDM 



SETF MACR8 Dj M8VE «0* D ( 1 ) #D { 2 ) i ENDM 
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* 

PRC 


8PD 


10200000B#1#1 


PRQ 


8PD 


103000008/1*1 


FLA 


epo 


01310000QB/1#1 


FLS 


8PD 


013500000B*1#1 


FLM 


8PD 


014100000Bj1#1 


FLD 


8PD 


014500000B#1#1 


LFP 


8PD 


012500000B#ljl 


STD 


8P0 


010700000B # 1#1 


AXC 


8PD 


0f6004QlB/2 


AXCE 


8PD 


0460Q501B/2 


AXBA 


DPD 


Q4600450B/2 


BXC 


8PD 


0^600022B>2 


BXAC 


8PD 


04600222B/2 


LGR 


8P0 


06624000B#1#1/1 


NSTLBt 


EQU 


4 


PS 


8RU 


SYSINI 


*RS 


M8VE 


i*l#FRUB#A 




8RU 


PS3 


# 


SYS 


T E M I N I T J 


SYSINI 


M8VE 


?0#FRUN/SENSLW# 




M8VE 


s»liFRUB#8NES#B 


♦SYSTEM SUBR8UTINE LINKS 




LDX 


§LINKTL 




IDA 


LINKTE#2 




STA 


234B/2 




BRX 


#■2 




SBRM 


SLDPNT 




M8VE 


i»l#ERLPT/A 


*SET UP_P8P 


ADDRESSES 




LDX 


*«57B 




LDA 


P8PEND/2 




STA 


157B#2 




BRX 


**2 



MAX, NESTING LEGEL IN FORMATS 
♦** 8RIGIN 30000B **# 



A L I I E 

ENSSW*BVFIND#BRKRPjA 
BK1ADR#BK2ADR#BK3A0R*A 



SET L8AD P8INT ADDRESSES 
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•USER FILES INITIALLY CLOSED 



8RS 




17 


LDX 




-FLNMT 


vrU» R 






STA 




0/2 


LDA 




i^OOOOOOlB 


STA 




1*2 


LDX 




•J8TSZE 


LDA 




f37777777B 


STA 




I8TEND/2 


BRX 




*«1 


•SET UP FORMAT 


PR8CESSING STACK 


M0VE 




fVAQRLL#ADRLPL/A 


move 




fVAORLS#ADRLPS/A 


♦INITIALIZE 


CONSTANTS 


M8VE 




iQ#ZER8/A 


LDP 




IFP8NE 


STP 




FP9NE 


M8VE 




i40000000B,SJGN, 


M8VE 




FLINDiFLTlND#A 


M8VE 




iERR6R>M3B#A 





PRQ 


LDC8MP 


LSAPING CQMPLETE 




LDB 


■ 10 






LDX 


■ J 






LDA 


EOSIZE 


ERASABLE STORAGE SIZE 




BRS 


36 






PRQ 


3PCEQT 


SPACE AVAIL QU8TE 


PS3 


M8VE 


«CS,TBLE. 


iA 


PS2 


LDA 


FTBLE 





SWAIT 



BAD8P 
PRL8C 



$RUB 



RUB3 
$BAD 
*CMMD 
$CS 



CAX 

BR3 

N8P 

BRS 

M8VE 

LDX 

BRU 

BRU 

BRU 

PRQ 

BRU 

PRQ 

IDA 

ETR 

LDB 

LDX 

BRS 

BRS 

SKN 

BRU 

M8VE 

SKN 

BRU 
UDP 
STP 
IPX 
STX 
IDA 
STA 
SBRM 

BRU 
BRS 
PRC 



9 

TBUE 

31 

TBLE#PR8GRSjA PROGRAM RESTART 

TBLE6 F8RK STATUS 

#+i,a 

RUB 

8AD8P 

MEMQT 

PRiec 

ILLQT 
TBLE 
I37777B 
«8 

il 
36 

10 

FRUB 

RUB3 

■OiFRUB/A 

FRUN 

PS3 

TBLE1 

BRKRA 

TBLE3 

BRKRX 



8RKRP 
L9CLBL 

sQ*FRUN/A 

PS3 
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10 

37B 



RETURN T8 EXEC 



SAVE ESCAPE RETURN ADR, 



G8 T8 CMMD START 



Q»MARK 



INPUT START 
LDX i-i 

CLA 

BRS 12 

CLA 



SET BREAK 8N EVERYTHING TBL* 





STA 


MSCNT 




SETF 


FRUN#A 




PRQ 


CMMDQT 


csi 


CIS 


ZER8 


CS5 


CLX 






M9VE 


9«1#FRUB#B 




SBRM 


ACB 




DATA 


» '+CS1 




DATA 


' ♦ UCQU8TE 




DATA 


6BIT+*+l 




STA 


CCHR 




SRU 


DEBUG 


♦SET UP DEBUGGER'S PROGRAM ENVIRONMENT 


$SUDPNT ZR8 


IACB 




M9VE 


fLDPNT/UPR8GS*A 




IDA* 


UPR8GS 




ETR 


*37777B 




SUB 


it 




§TA 


UPR8GN 




M8VE 


LDPNT3#UDATAS/A 




IDA 


=IPPNT 




SBRM 


L8CIBL 




BRR 


LACB 


♦GU8TE 


M8DE 




CGU9TE 


EQU 


# 


CG2 


CIS 


ZER8 




BEQ 


fH4B#CS 




BRU 


CQ2 
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E R R 9 R N8TE TYPE 



SERR8R ZR8 
STA 



U T 



LERR8R 
Q2 



•1 



M8VE Q>MRSTL,A 2R6 PAGE 6 

IDA LERR8R 

ADD *2 

STA LERMSG LINK T8 ERR8R MESSAGE 

IDA NEGBEX NEG EXP BIT 

SKA* LERR8R 

LDA N8PM8P LI V N8P M8P 

XMA Q2 «l 

LDX iERLSZE 

ERR1- PRQ ERRQT1 

PRQ* LERMSG 

LDA MRSTL 

SBRM L9CLSL LOCATE LABEL 

LDA DD9TA 

3NE i«ljERR6 

ERR3 BRU ERR8 

ERR6 PRQ INSTQT IN STATEMENT QT 

LDA DD8TA 

ERR7 LDB #10 

LDX il 

BRS 36 TYPE STATEMENT N8 

LDA DD8TR 

SKG iO 

BRU ERR8 

TC9 »♦ ♦ » 

LDB *10 

LDX -1 

8RS 36 

ERRS M9VE MRSTL#Q>A 

PRR LERR8R 



* SUBROUTINES AND P 8 P $ 
*CL9SE A USER'S FILE 
•LEAVES F8RTRAN UNIT NUMBER IN X 
$CLFLE ZR8 LCLPLE 
SKG §9 



SKG si 

BRR ICLFIE 

CAX 

UDA FlNMT/2 

ETR 137777B 

SKE 137777B 

BRS 20 

UDA I37777777B 

STA FLNMT/2 

BRR LCLFLE 



UNACCEPTABLE F0RTRAN UNIT NS 
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*CL9SE ALL USER'S FILES 



$CLAFLE ZR8 
LDA 

CLAFL5 SBRM 
CXA 
ADO 
SKG 

BRU 
BRR 



LCLAFL 
CLFLE 

*1 

i?9 

CLAFL5 
LCLAFL 



*ST8P STATEMENT 
$STPLNK ZR8 

M0VE 
STPSTP PRQ 
STPST3 LDA 

SBRM 

BRU 
$PAULNK ZR8 

M8VE 

MIN 

PRQ 

LDA* 

ETR 

LDB 

LDX 

SKE 



LST6P 

?LDPNT#MRSTL#A 

ST8PQT 

MRSTL 

L8CLBL 

CS 

LPAUSE 

LPAUSE,MRSTL*A 

LPAUSE 

PSEQT 

LPAUSE 
137777B 

• 10 

• 1 

fO 



RUNTIME CMMD START 





BRS 


36 




CI© 


ZER8 




CUX 






SBRM 


ACB 




DATA 


»G»+PAUG9 




DATA 


6BIT+CS5 


PAUG8 


TC9 


i' 9' 




TC9 


sl55B 




BRR 


MRSTL 


♦PRINT 


CHARACTER 


$PRCP6P EAX* 







CXA 






e;tr 


§3778 


PRCP1 


CI9 


il 




8RR 





♦PRINT 


QU9TE 




$PRQP9P EAX* 


Q 




CXA 






ETR 


■377778 




IDX 


»1 




IDB 


* * X 




BRS 


34 




3RR 
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♦ACCEPT CHAR AND BRANCH 
♦CHAR 9UT 9F B9UNDS TREATED AS ZER9 
♦1/ AiCHAR RT ADJ*# Xt6#l F8R 6j9 BIT 
A PRESERVED 
LACB 
ACBL!M,2 LIMIT 



CHAR 



♦B DISTURBED 
$ACB ZR8 
SKG 
SKQ 

$TA 



ACBCHR 



LDB 
STB 
CLB 
USH# 

LDB 
EAX* 
ACB1 EAX 

SKM 
BRU 
BRU 
XMA 
SKA 
BRU 
XMA 
BRU 
ACB9UT LDA 
ETR 
CAX 
LDA 
BRU 



B6#2 
AC3BIT 

AC3SCT#2 

ACBMSK,2 
LACB 

i'2 

0#2 

* + 2 

AC88UT 

AC8BIT 

0/2 

ACB9UT 

ACBBIT 

ACB1 

§377778 

0#2 

ACBCMR 
Qj2 
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SHIFT C0UNT 



PAGE 

PR9GRAMMED 



8PERAT8RS 



*BKP P8P U52) BREAK P9INT 



$BKPP9P LDA 
STA 
SBRM 
PRQ 
LDA 
BEQ 
LDB 
LDX 
BRS 

BKP5 LDA 
SKG 





BRKRP 

L9CL8L 

8EAKQT 

0D9TA 

■-1/BKP10 

ilO 

8NE 

36 

DD9TR 

*0 



SAVE F9R PR9CEED COMMAND 
L8CATE LABEL GIVEN AODR 



START 8F CURRENT PR8G 



BRU 


CS 




ice 


s • ♦' 




LDA 


DD8TR 




LDB 


•10 




LDX 


9NE 




SKE 


§0 




BRS 


36 




BRU 


CS 


COMMAND START 


BKP10 PRQ 


STRTQT 


PR9GRAM START QT 


BRU 


BKP5 




*FLA P9P (131) 


FL9ATING 


ADD 


$FLAP9P STA 


TEMPA 




CLA 






BRU 


* + 3 




*FLS P9P (135) 


FLOATING 


SUBTRACT 


$FLSP9P STA 


TEMPA 




LDA 


9NES 




STA 


FLAG 




STX 


XREG 




CXA 






STB 


ZM 


B 


STE 






STX 


ZE 


SIGN EXTENDE 


ADD 


XREG 


D8UBLE X 


AXC 






EAX» 





PR9CURE ARGU 


SKE 


\*z 




8RU 


Q5B 




CLAB 


Q 


MsZERO 


BRU 


FLAD 




Q5B SKE 


TEMPA 




BRU 


Q5A 




CLAB 


Q 


A^B?ZER9 


BRU 


FLAC 




Q5A CXA 




M N9N ZER9 


LDB 


0/2 
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STE 






XXA 






SUB 


ZE 




SKG 


ONES 




BRU 


FLAQM 




SKA 


M778 




LDA 


sDD39 




XMA 


TEMPA 




LDB 


ZM 




RSH* 


TEMRA 




XAB 




FLAC 


SKN 


FLAG 




BRU 


Q5C 




MRG 


9777 




SUB 


0/2 




E8R 


8777 




XAB 






sue 


1/2 




BRU 


FLAF 


G5C 


RCM 


01OIB 




ADD 


0/2 




XAB 






ADC 


1/2 


FLAF 


STE 




FUA8VT 


8VT 






BRU 


9FSET 




N9Q 


38 




SKA 


ONES 




BRU 


FLANZ 




ax 




FLANZ 


XXA 






SKG 


M257D 


FU9F 


BRR 


FLA9FS 


FLA9K 


XXA 




FLAX 


UDE 


0#2 




STX 


FLAG 




LDX 


XREG 




9VT 






BRU 


8FL9 



EXTEND SIGN 8F EXP (M) 
EXP (M)*EXP(A) 

/A/ »GR« /M/ 

/A/ ,LE* /M/ 
MAX SHIFT 139 



ALIGN FRACTIONS 

FLAG NEGATIVE IFF FLS 

FLA 

FLS 
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CLA(E> 



RIGHT NORMALIZE 
LEFT NORMALIZE 

IF FRACTION ZERO* 
THEN CLEAR EXPONENT 

TEST F8R EXPONENT UNDERFLOW 
SET OVERFLOW DEVIOUSLY 

LDEjCLX 

BSSET FLA/FLS FLAG 



OVER/UNDERFLOW 



FLAGM 



FUD 



Q5D 



8FSET 



DIV8F 



8FL8 



Q5E 



BRR 







CNA 




F8RCE EXP QIFF P8SITIVE 


§KA 


M779 


SKIP IF LESS THAN 64 


IDA 


«DP39 




LDX 


1*2 




XXA 






RSN 
RCH 


0#2 
0102B 


ALIGN FRACTI8NS 


SKN 


FLAG 




BRU 


Q5D 


FLA 


XMA 


TEMPA 


FLS 


XA8 






XMA 


ZM 




SUB 


ZM 




XAB 






sue 


TEMPA 




BRU 


FLAF 




XAB 




FLA 


ADD 


ZM 




XAB 






ADC 


TEMPA 




BRU 


FLAF 




RSN 


X 


RIGHT N8RMALIZE 


E8R 


MINUS 




BRX 


FLAX 




XXA 






SKG 


DD255 


CHECK F8R 8VERFL8W 


BRU 


FLA0K 




BRR 


FLA8F 




IDA 


TEMPA 




E9R 


1/2 


DETERMINE SIGN 8F QU8TJENT 


BRU 


Q5E 


8VERFL8W 


STE 






BRX 


Q5E 


8VERFL8W 


CLAB 





UN0ERFL8W 


LDX 


XREG 




BRR 







LDX 


SIGN 


SET 8VERFL8W INDICAT8R 


SIX 


8VFIND 
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E8R 

RSH 
E8R 
EAX 
&RU 



MINUS 

39 

MINUS 

255 

FLAX 
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FLA8FS FLA8F,4 

*FtM P9P (Xkl) FL8ATING MULTIPLY 



SFLMP9P STX 
STA 
CXA 
STE 
STX 
BXC 
LCY 
XXA 
EAX* 
LGR 

MUL 

STA 

IDA 

QX8 

AXCE 

XXA 

ADM 

BXAC 

LGR 

MUL 

ADD 

MUL 
STB 
XMA 
MUL 
XAB 
ADD 
XAB 
ADC 
LDX 
SKA 
BRU 



XREG 
TEMPA 



ZE 

I 


2 

ZM 
0#2 



ZE 

2 

TEMPA 

ZM 

TW8 

ZM 

TEMPA 

1/2 

ZM 

TEMPA 

ZE 

MAXP8S 

FLC9M 



AH 

EXTEND EXP (A,B) 

D8UBLE X 

F8RCE + 
AL # MH 



EXTEND EXP (M) 
AE+ME i EXP (BSSULT) 
CXA, BXC 

F8RCE * 

AH « ML 

AH « ML * AL * MH 

SCALE 



AH * MH 



EXP (BSSULT) 

ALL RIGHT T8 NORMALIZE 



SK8 


ML8NES 


BRU 


FLC8M 


SKE 


MJNUS 


BRU 


FLMX 


RCY 


1 


BRX 


FLCBM 


$RU 


FLC8M 


*FLO PaP (145) 


FLOATING 


$FLDP8P STX 


XREG 


STA 


TEMPA 


CXA 




ste 




STX 


ZE 


BXC 




UCY 


1 


LDB 


TEMPA 


AX8A 




EAX* 





RSH 


s 


DIV 


1#2 


8VT 




BRU 


DIV8F 


STA 


ZM 


SAC 




RSH 


1 


STA 


TEMPA 


LDB 


Q>2 


CXA 




STE 




XXA 




CNA 




ADO 


TW8 


ADM 


ZE 


BAC 




RCY 


2 


CNA 




MUL 


ZM 


ADD 


TEMRA 


DIV 


1/2 



DIVIDE 



N8T »1 8R 
SEPARATE .1 FR9M 
0/ EXIT 
• 1* RIGHT N8RMALIZE 
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EXTEND EXP (A«B) 



(AH+AL)/{MH+ML)» 

( <AH*AL>/MH)#<1*ML/MH)« 

(Q+R/MH)Mi-ML/MH)r 
Q+(R*Q*ML)/MH 



8VERFL8W IFF DIVIS8R *Q 
SINGLE PRECISI8N QUBTIENT-Q 



REMAINDER i R 

EXTEND EXP (M) 

EXP { BSSULT ) «EXP { A ) +2*EXP ( M ) 



•ML 

Q 

R» Q*MU 

(R»Q#ML)/MH 





MUL 


Twe 


SCALE 




ADD 


£M 


Q+(R»Q*ML)/MH 




LDX 


ZE 


EXP(BSSULT) 




SKA 


8NES 






BRU 


FLC8M 






BRU 


FIMX 




*FLN 


P6P (H7) 


FLOATING 


NEGATE 


SFLNP8P STX 


XREG 






SKB 


ML8NES 






BRU 


FLNA 


LESS SIGt HALF 




CNA 








SKE 


ZER8 






SKA 


M01777 






BRR 









STE 








SKE 


MINUS 


PLACE SIGN BIT IN 




BRU 


FLC8M 






RCY 


X 


SIGN BIT T8 A 




BRX 


Q5F 




FLC8^ 


! NSO 


4 


NBRMALIZE RESULT 


Q5F 


aam 








SKG DD255 


CHICK F8R EXP8NENT 




SKG 


M257D 


8VERFL8W/UNDERFL8W 




BRU 


FLA8F 






XXA 






FLNB 


UDE 






FLMX 


UDX 


XREG 






BRR 


Q 




FLNA 


STE 
XAB 

CNA 
XAB 








E8R 


8NES 






8RU 


FLNB 




*DPM 


P8P (155) 


D8UBLE PRECISION MULTIPLY 


SDPMP8P STX 


XREG 






EAX* 









STA 


XM 






BAC 
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N8N F8Ri 



RCY 
MUU 
STA 
LDA 
UGR 

MUU 

ADD 
MUU 
STB 
XMA 

MUU 

XAB 

ADD 

XAB 

ADC 

UDX 

SKG 
Q28 SKB 

BRR 

BRR 
Q29 HUT 
*LTX PdP (123) 
SUTXP9P UDA 

STA 

UDP* 

SBRM 

BRR 
*XMP P9P (140) 
$XMPP9P MUU* 

RSH 

XAB 

BRR 
*XDV P9P (144) 
$XDVP8P MUU 

DIV* 

BRR 
* XST PQP (1Q4 
$XSTP8P SBRM 

STA* 



2 
1*2 

ZM 

0/2 

2 

XM 

ZM 

TW9 

ZM 

XM 

1/2 

ZM 

XM 

XREG 

MINUS 

9NES 



Q29 

Q28 

U8AD THEN FIX 

Q 

EXIT 

EXIT 

FXBNDA 

EXIT 

FIXED MUUTIPUY 



1 



FIXED DIVIDE 
RTSH23 


) FIX AND ST9RE 
FXBNDA 




2R6 



PAGE 16 



#2 



FIX BANDA 




1 

N9 


RT SHIFTER 23 




FIX B AND A 





BRR 









* FST 


POP (105) FL8AT 


AND STORE 




$FSTP8P S8RM 


FL9ATA 




FLOAT A 




BRU 


STDPap 




STORE DOUBLE P8P 


* FIX 


B AND A 








$FX8NDA ZR8 


UFXBND 








STX 


FX3AXR 




SAVE X 




SKB 


EMASK 




SKIP IF •! < EXP8N > 6* 




ClAB 





8THERWISE 


INTEGER x 




STA 


FIXTP2 




REC8RD SIGN 




SKD 


D23 




C8MPUTE SHIFT AND DIRECTION 




8RU 


Q31 




EXP8N > 22 




RCH 


01028 




EXP8N < 23 S8 CLEAR EXP8N 




STB 


FIXTMP 




SAVE FRACTI9N 




RSN 


0^2 








XAB 










MR(3 


FIXTMP 




MERGE FRACTI8N 




XAB 








G32 


5KB 


ONES 




SKIP IF FRACTION * 




SKN 


FIXTP2 




CHECK SIGN 




8RU 


Q33 




DO NOT ADD ONE 




ADD 


ONE 




ADD 1 T8 TRUNCATED 


Q33 


LDX 


FXBAXR 




NEGATIVE INTEGER 




SBRR 


FXBNDA 




EXIT 


Q31 


RCH 
USH 

BRU 


0102B 

0*2 
Q32 




CLEAR EXPONENT 


*LTF P8F (122) 


LOAD THEN FLOAT 




$LTFP8P IDA* 











SBRM 


FL8ATA 




FL8AT A 




BRR 










♦FLOAT A 








$FL9ATA ZRd 


LFL9AT 








STX 


FLAXRG 




FLOAT A XREG 




CLB 










LDX 


D23 








N8D 


23 




27 




IDE 










LDX 


FLAXRG 




FLOAT A XREG 



2R6 



PAGE 17 



SBRR FL9ATA FLBAT A 2R6 PAGE 18 

*FTA P8P (126) FL9AT THEN ADD 

$FTAP9P STB PARTI 

STA PART2 

UDA 

STA EXIT 

UDA* 

SBRM FL9ATA FL9AT A 

FLA PARTI 

BRR EXJT 

* FTM P9P (136) FL6AT THEN MULTIPLY 
SFTMP8P STB PARTI 

STA PART2 

IDA 

STA EXIT 

LDA* 

SBRM FL6ATA FL9AT A 

FLM PARTI 

BRR EXIT 

* FTS P9P (132) FL8AT THEN SUBTRACT 
SFTSP9P SBRM FTS8RD FTS 9R FTD 

FLS PARTI 

BRR EXIT 

* FTD P9P (142) FL8AT THEN DIVIDE 

SFTDP9P SBRM FTS9RD FTS 8R FTD 

FLO PARTI 

BRR EXIT 

* FTS 9R FTD (C8MMQN PART) 
$FTS8RD ZR8 LFTS9R 

ST3 PARTI 

STA PART2 

LDA 

STA EXIT 

LDA* 

SBRM FL8ATA 

XMA PART2 
XAB 

XMA PARTI 
XA8 



S8RR 


FTS8RD 








*D8X P8P (110) 


D8 FIXED 








$D8XP8P LQB 





Q 






STB 


D8XTEM 


D8X 


TEMP 




Mllsi 


Q 









ADM* 





8 






SKA 


SIGN 








BRU 


Q3S 


•1 






IDA* 





8 






SKG* 


D8XTEM 


D8X 


TEMP 




MJN 












8RR 












Q35 IDA* 


D8XTEM 


D8X 


TEMP 




SKG* 





8 






MIN 












9RR 





8 






*D8F P8P (111) 


D8 FLOATING 








$D8FP8P StA 


D&FyEM 


D8F 


TEMP 




IDA 












STA 


Q8FTAD 


D8F 


TEMP 


ADR 


ADD 


9NE 


6NE 






STA 


D8FXIT 


D8F 


EXIT 




IDA 


D8FTEM 


D8F 


TEMP 




FLA* 


D9FXIT 


D8F 


EXIT 




STD* 


D8FXIT 


D8F 


EXIT 




SKN 


D8FTEM 


D8F 


TEMP 




8RU 


Q36 


•1 






l^FP* 


D8FTAD 


D8F 


TEMP 


ADR 


FtS* 


D8FXIT 


D8F 


EXIT 




SKG 


ZER8 


ZER8 




MIN 


D8FXIT 


D8F 


EXIT 




BRR 


D8FXIT 


D8F 


EXIT 




036 FUS* 


D8FTAD 


D8F 


TEMP 


ADR 


SKG 


ZER8 


ZER8 




MIN 


DQFXIT 


D8F 


EXIT 




SRR 


D8FXIT 


D8F 


EXIT 




*XSD P8P (100) 


FIXED SET UP DUMMY 








$XSDP8P CLA 










BRU 


Q37 


*1 
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*FSD POP (101) 


FLOATING 


SET UP DUMMY 


$FSDPBP LDA 


FLIND 




FLOAT IND 


Q37 UDB 


FLIND 




FLOAT IND 


STX 


XREG 




XREG 


EAX* 










SKM# 


EADR2 




EADR 2 


BRU 


Q39 




*2 


Q38 MRG* 


EADR2 




EADR 2 


MIN 


EADR2 




EADR 2 


STA 


0#2 







MRG 


TAGBIT 




TAG BIT 


STA 


1#2 




1 


LDX 


XREG 




XREG 


BRR 










$ARGM ZR8 









039 SBRM 


ERROR 






BRU 


cs 






ASC 


» ARGUMENT 


MODES DISAGREE IN SUBPROGRAM 


*FFA POP (U5) 


FLOATING 


FIRST ARGUMENT 


$FFAP0P SBRM 


PBLXRG 




DOUBLE XREG 


IDA 


FLIND 




FLOAT IND 


BRU 


Q4Q 




*1 


♦ XFA POP (1H) 


FIXED FIRST 


' ARGUMENT 


*XFAP0P CLA 








STX 


XREG 




XREG 


Q^O LOB 


EOADR 




EO ADR 


STB 


EADR1 




EADR 1 


IDS 


EOSIZE 




EO SIZE 


STB 


EOSIZT 




EO SIZE TEMP 


BRU 


cm 




*2 


*FNA POP (117) 


FLOATING 


NEXT ARGUMENT 


$FNAP8P SBRM 


DBLXRG 




DOUBLE XREG 


LDA 


FLIND 




FLOAT IND 


BRU 


Q*l 




*2 


#XNA POP (116) 


FIXED NEXT 


ARGUMENT 


$XNAP8P CLA 








STX 


XREG 




XREG 


QU STA* 


EADR1 




EADR 1 


EAX» 
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CALL/* 



CXA 












ETR 


ADRMSK 








ADR MASK 


ADM# 


EADR1 








EADR 1 


MIN 


EADR1 








EADR 1 


LDX 


XREG 








XREG 


SKR 


EQSIZT 








EO SIZE TEMP 


BRR 











Q 


SBRM 


ERROR 










BRU 


Q41A 










ASC 


» ERASABLE STORAGE 


EXCEEDED/' 


Q41A BRR 













*D8UBLE XREG 












$DBLXRG IRQ 


LDBLXR 










STX 


XREG 








XREG 


A Af^ 












ADD 


XREG 










XXA 












SBRR 


DBLXRG 








DOUBLE XREG 


*AIF P9P (151) 


ASSIGN LABEL 


TO 


FLOATING 


SALFPQP S8RM 


DBLXRG 








DOUBLE XREG 


8RU 


Q42 








*1 


*ALX PdP (150) 


ASSIGN LABEL 


TO 


FIXED 


$AUXP8P SIX 


XREG 








XREG 


<H2 LDA 














ETR 


ADRMSK 








ADR MASK 


STA* 














LDX 


XREG 








XREG 


MIN 














BRR 














♦ AGF P$P (113) 


ASSIGNED 


go 


TO 


FLOATING 


SAGFP8P SBRM 


DBLXRG 








DOUBLE XREG 


BRU 


Q^3 








*3 


*AGX POP (112) 


ASSIGNED 


G6 


TO 


FIXED 


SAGXPOP STX 


XREG 








XREG 


Q43 LDX* 














LDA 


Q#2 











LD8 


POPADR 








POP ADR MASK 


SKM 


AP9PCD 








ASN POP CODE 


BRU 


Q<f5 








♦1 
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G44 §TX 


AGTTP1 






AGT TEMP 1 


LDX 


XREG 






XREG 


8RR 


AGTTP1 






AGT TEMP l 


G45 SBRM 


ERR8R 








BRU 


Q44 






#2 


ASC 


' ASSIGNED G8 T8 


* UNASSIGNED VARIABLE/' 


*LDP P8P (125) 


U8AD D8U8LE 


PRECISI8N 


SLDPP8P SIX , 


DPTMP1 








CXA 










ADD 


DPTMP1 








CAX 










EAX* 












UDA 


1/2 






1 


LDB 


0#2 









LDX 


DPTWP1 

/ 








BRR 









*STD P8P (107) 


ST8RE D8UBLE PRECISI8N 


SSTDP8P STX 


DPTMP1 








STA 


TEMP3 








CXA 










ADD 


DPTMP1 








CAX 










UDA 


TEMP3 








EAX* 












STA 


1/2 






1 


5TB 


Q»Z 









LDX 


DPTMP1 








BRR 












#PPA PQP (154) 


D8UBLE 


PRECISI8N 


ADD 


*DPAP8P SIX 


PPTMP1 








EAX* 












XAB 










ADD 


0/2 









XAB 










ADC 


1/2 






1 


UDX 


DPTMP1 








BRR 


Q 









♦DPS P8P (153) 


D8UBUE 


PRECISI8N 


SUBTRACT 


SDPSP8P STX 


DPTMP1 
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« 

♦INPUT OUTPUT LIBRARY ROUTINES 

* SINCE THESE ROUTINES ARE ALWAYS REQUIRED/ TMEY ARE PLACED IN 

* C8MM$N MEMORY 



EAX* 


Q 


XAB 




SU3 


Q/2 


XAB 




sue 


i#2 


LDX 


DPTMP1 


BRR 
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SDECLFL ZRO 


LDECLF 




SKG 


*9 




SKG 


ij 




BRR 


LDECLF 


UNACCEPTABLE UNIT 


ADD 


sFLNMT 


FILE NAME TABLE 


STA 


FLNPTR 


FILE NAME PTR 


MIN 


LDECLF 




♦DETERMINE DIRECTION OF 


INFORMATION TRANSFER 


CLB 






LDA» 


LDECLF 




§KA 


• 1 




LDB 


**1 


OUTPUT 


STB 


FIODIR 


I/O DIRECTION 


♦LOOK UP NAME 






MIN 


LDECLF 




LDA 


LDECLF 


START OF STRING 


ETR 


I37777B 




MUL 


i3 




LRSH 


1 




CBX 






LDA^ 


LDECLF 


END OF STRING 


SUB 


■ 1 




ETR 


?37777B 




STA 


LDECLF 




MUL 


53 





N8 





LSN 


23 








FCR 










ETR 


11777778 








ADD 


f2 






DECL3 


STP 
LDA 

MUL 

LSH 23 
SUB 
CAB 

STP 


FNPTR 
fFNBUF 

• 3 

• 1 

FNPTR2 






DECL4 


GCJ 


FNPTR 


ADVANCE T8 FILE 


LEADING 




BRU DECERR 








BEQ 


*' /',DEC13 








BNE 


i7/DECL^ 






DECL8 


GCI 


FNPTR 








BRU DECERR 








BEQ 


§♦ /f,QECL5 








BEQ 


«7#DECL5 






DECL9 


WCI 

BRU 


FNPTR2 

DECL8 






DECL5 


WCI 
LDP 
LDX 
BRS 
BRU 
LDB 
LDX 
SKN 
BRU 


FNPTR2 
FNPTR2 

FNBUF3 
60 

DECERR 
ilioOOB 

§3 

FI8DIR 
DECL40 








BRS 


19 


6UTPUT FILE 






BRU 


DECERR 








MRG 


*4000000QB 






DECLIO 


STA* 


FLNPTR 






DECL50 


BRR 


LDECLF 






DECLIO 


BRS 

BRU 
BRU 


16 

DECERR 
DECLIO 


INPUT FILE 
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DELIM 



DECERR 


SBRM 


ERR0R 




BRU 


DECL.50 




ASC 


' FILE NAME 


♦READ ! 


F JLE 




$READF 


ZRa 

CUB 


tiQsyB 




SBRM 


SETI8T 




IDA 


UI9SUB 




BRU 


IFSOO 


# 


WRITE 


FILE 


$WRITF 


ZR8 


LI8SUB 




IDS 


SIGN 




SBRM 


SETI8T 




IDA 


LI9SUB 




UD8 


SIGN 


# 


BRU 


IFSOO 


* 




e:nd INPUT*8U 


ENDJ9U 


HIT 






SKN 


EP 




BRU 


ENDOl 




SBRM 


ERR8R 




BRU 


ENDQ3 




ASC 


» 1*8 LIST/' 


END03 


SBRR 


ENDJ8L 


END01 


IDA 


9NES 




STA 


EP 




IDX 


MSAVEX 




SBRR 


ENDI8L 


IT 


SET 


1/9 TABLES 


SETI8T 


ZR9 


LSETT 




STX 


MSAVEX 




SKG 


§9 
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SET UP 1/9 TABLE 
INITIALIZE F9RMAT SCAN 



SET UP 1/8 TABLES 

9UTPUT FLAG 
INITIALIZE F9RMAT SCAN 



SKIP IF N8 EDIT IN PR8GRESS 



RESET EDIT IN PR8GRESS FLAG 





SKG 


«*1 




BRU 


ILLUN8 




CAX 






stb 


8T 


♦ TEST 


IF THIS 


FILE IS 8PENED 


SETT1 


IDA 


FLNMT#2 




SKE 


137777777B 




BRU 


SETIT2 




IDA 


■1 




SKN 


8T 




CLA 






STA 


0#2 




STA 


CURFIE 




BRU 


SETIT7 


SETIT2 


SKN 


9T 




BRU 


SETIT5 




SKN 


FINMT#2 




BRU 


SETTIO 


SETIT3 


IDA 


FLNMT,2 




£TR 


«37777B 




STA 


CURFUE 


SETIT7 


SKE 


ZER8 




BRU 


SETIT9 




TC8 


•147B SIGN 




TC8 


■ 1<*7B 


SETIT9 


IPX 


MSAvEX 




BRR 


USETT 


ILLUN8 


S8RM 


ERR9R 




BRU 


CS 




ASC 


* INPUT-9UTPU 


SETIT5 


SKN 


FtNMT # 2 




BRU 


SETJT3 


SETT10 


SBRM 


ERR8R 




BRU 


CS 




ASC 


' INPUT T8 8U 



ILLEGAL UNIT N8 



2R6 



PAGE 26 



SELECT TTY BY DEFAULT 



FILE NAME TABLE 

CURRENT FILE N8 



TERMINAL INPUT 



ILLEGAL UNIT NUMBER 
RUNTIME CMMD START 
UNIT EXPRESSI8N N6T 0*9/' 



DIRECTI8N ERR8R 
CMMD START 
IT FILE 8R VICE 



VERSA/' 



♦g u a 


T E S 






CMMDQT 


ASC 


»$*/! 




SCBNTQT ASC 


'9NTJNUE/' 




$STRTQT ASC 


t#START»/> 




$BEAKQT ASC 


»$BREAK /» 




INSTQT 


ASC 


'*IN STATEMENT 


/» 


ST8FLK 


EQU 


200B 


START 6F LINKS 


SACBUIM DATA 


778/1778 




$ACBSCT DATA 


18/15 




$ACBMSK DATA 


77<*Q00OOB>7774G0G0B 


$FTBLE 


108 


TBLE#1 




6BIT 


EQU 


00400000B 




9BIT 


EQU 


00040000B 




B6 


DATA 


00400000B 




B9 


DATA 00040000B 




LINKTS 


EQU 


# 






ZR9 









ZR9 


STRTDM 


START 6F DUMMIES 




ZR9 


ENDDMY 


END 9F DUMMIES 




ZR§ 


STPLNK 


ST9P 




ZR9 


WRJTF 


U) WRITE FILE 




ZR9 


ENDI9L 


END 18 LIST 




ZRe 


READF 


READ FILE 




ZRO 


ARGM 


ARGUMENT M0DE ERR8R 




ZR9 


SETJ9T 


SET INPUT/9UTPUT TABLES 




ZR9 


PAUINK 






ZR9 


DECLFL 


(12) 




ZR9 









ZR9 


CLFLE 






ZR9 


CLAFLE 






DATA 


O/O 






ZR9 


C9MPG9 






ZR9 









ZR9 


JFSNSW 


(22) 




ZR9 


IFSNLT 


IF SENSE LIGHT 




ZR9 


IF9VFL 
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DATA 0#0 2R6 PAGE 28 

IRQ SENSUT (27) SENSE LIGHT 

BRU UNDEF UNDEFINED LABEL TRANSFERS 

IRQ FXBNDA 

ZRd FL8ATA 

IRQ I6LUSA 

LINKTE EQU * 

LINKTL EQU LINKTS. LINKTE 

CARRET EQU 155B 

END 



3R6 



IDENT 9«30 F8RMAT PR8CESS8R# RUNTIME PART 3 



9/30 n;34 



PAGE 1 



* 

*RCH 
FCL 

FCR 
BXC 
XBC 
CA 

CB 
* 

AB 

BA 

BX 

XB 

XA 

AX 

M5VE 

M8VE1 



M8VE2 



M8VE2 



# 
STZ 

BFS 

BTR 

BEQ 

3NE 

SETT 

SETF 



8P DEFINI 
8P0 

dPD 

8PD 
8PD 
EQU 
EQU 

Cx 

EQU 

EQU 

EQU 

EQU 

EQU 

MACR8 

NARG 

IF 

ClfD(M8 

EL.SF 

LDtD{M8 

ENDF 

EQU 

RPT 

§T.D(M8 

EQU 

ENDR 

ENDM 

MACR8 
MACR8 
MACR8 
MACR8 

MACR8 
MACR8 
MACR8 



FULL CYCLE LEFT 
FULL CYCLE RIGHT 
B T8 X, CLB 
X T8 B, CLX 



ARPAS DEMANDS #2 



TI8NS 

4600450B#2 

4600224B#2 

460Q022B#2 

246000406*2 

1 CLEAR A 

2 
EQU 200000008 

4 A T8 B 

10B 

208 

40B 

200B 

400B 

D 

♦Dfl$l,2> •■»■<)' 
VE1) 

X 
VEX) D(l) 



M8VE1-2 
VE1) D(M8VE2> 

M8VE2+1 



A ST8RF ZER8i CLA I STA A(l) i ENDM 

01 SKN D(l); BRU D{2); ENDM 

D; SKN D(l); BRU * + 2J BRU D(2)J ENDM 

D; SKE DC1); BRU **2J BRU D(2)J ENDM 

D; SKE D(l); B«U D(2); ENDM 

D; M8VE *«1#DU>#D{2>J ENDM 

D; M9VE =0,D(1),D<2); ENDM 



# 
* 

ICT 

PRC 

PRQ 

FLA 

FtS 

FLM 

FUD 

LFP 

STD 

AXC 

AXCE 

AXBA 

BXC 

8XAC 

* 
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8PQ 106000008/1* 

3PD 10200000B#1j 

aPD 10300000B/1# 

8PD 0131000008*1 

9PD 013500000B#1 

9PD 01<HOOOOOB#1 

9PD 01*500000B#1 

8PD Q12500000B/1 

8PD 0i0700000B#l 

9PD Q460(HQ1B#2 

9PD Q4600501B/2 

9PQ 04600^508/2 

9PD 0460Q022B/2 

9PD 04600222B#2 



# 
* 
* 

* 

# 

# 
# 

* 

* 
FDL00 



NAME 

DS 

IF 
IZ 

9T 



ZR8 

STX 

LDX 

R9V 

CUAB 

STA 



FLAG DEFINITION SUMMARY 

WHEN SET MEANS 

N9 DATA SPECSt IN F9RMAT 
EDIT IN PR&GRESS 
I-TYPE DATA SPEC*(A/I/9,R) 
IMPLICIT ZER9 IN FORMAT 
9PERATING IN 8UTPUT M9DE 



SET 



RESET 

4 



LFDLOO 
TXI 

Txe 



EP 



DATA FETCH R9UTINES 



REST8RE INDEX 



INDICATE EDIT IN PROGRESS [+ * EDIT) 



BRR 
*FI8 P8P (iai) 

FI8P8P cxb 

LSH 

xxb 

IDA 
BRU 
*XI8 PdP (120) 

xiepep RCH 

STB 

STA 

Uf A J\. * 

ETR 
ADM 
IDA 
STA 
LDX 
SKN 
SBRR 
SBRM 
BRU 
ASC 
XI8PP7 BRR 



MRTNAD 

FLOATING INPUT/eUTPUT 
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X 



SIGN 

* + 2 

FIXED INPUT/OUTPUT 

418 

TX8 

ARGADR 





ADRMSK 

ARGADR 



MRTNAD 

TXJ 

FDLOO 
ERR8R 
XI8PP7 

» Fxie/i 

MRTNAD 



D8UBLE INDEX REGISTER 

AND SAVE X IN B 
FL8ATING MQDE INDICAT8R 



SAVE X IN B* INTEGER M8DE IN A 
GET ARGUMENT ADDRESS 



SAVE EXIT 

SKIP IF N8 EDIT IN PR8GBSSS 



RETURN T8 CALL T8 INITFS 



$JFSOQ 



IFS05 
IFS06 



ADD 
STA 
STB 
STX 

LDX 
LDB 
LDA 
SKM 
BRU 
EAX* 

BRU 

SKM 



INITIALIZE F8RMAT SCAN 



8NE 

MRTNAD 

8T 

TX8 

MRTNAD 

8PMASK 

0#2 

ZER8 

IFS06 

0#2 

IFS1* 

BRUM8P 



FR8M READF AND WRITF 

SET UP 8UTPUT FLAG 
SAVE INDEX 



TEST P8INTER IN I/Q CALLING SEQ 

N8RMAL P8INTER T8 LABELED F8RMAT 8R 
ARRAY C8NTAINING RUN TIME F8RMAT 



BRUM9P BRU 
STA 
SBRM 
LDX* 

mu 

IFS08 LDB 

SKM 

iRU 
EAX* 

IFSiO LDB 
LDA* 

SKM 

iRU 
UDX 
IFS13 LDX 
IFS14 STX 
LDA 
ETR 
STA 
LDX 
LDB 
LDA 
SKM 
BRU 



IFS16 

IFS17 



iFsao 

IFS21 
IFS24 



iFsaa 



SKM 
BRU 
BRX 
LDA 

SKM 

BRU 
STX 

8RU 
SKM 

BRU 
BRU 
LDA 
SUB 
STA 



IFSQ8 
MRTNAD 

EGADR 
ZPSIO 
P9PADR 
AGTP0P 

IF531 

Q*Z 

P9PADR 

Q#2 

AP9PCD 

IFS32 

0*2 

1#2 

TEMPI 

TEMPI 

ADRMSK 

TEMPI 

TEMPI 

9PMASK 

BRUM0P 

IFS16 

IFS20 

STLM0P 

JFS24 

* + l 

BRUM8P 

IFS30 

FWPNTR 

I9E00 

BKPM8P 

JF522 

IFS17 

TEMPI 

9NE 

FWPNTR 



RUN TIME F9RMAT » SUBSCRIPTED ARRAY 
EVALUATE SUBSCRIPT 
GET M0DIFIED ADDRESS 



RUN TIME F0RMAT * SCALAR VARIABLE 



TEST IF F9RMAT LABEL ASSIGNED 
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TEST F9RMAT STATEMENT 



STATEMENT LABEL M9P 



BREAK P9JNT M8P 



POP* 



BRU I8E00 

IFS30 SBRM ERR8R 

BRU IFS330 

ASC f F8RMAT STATEMENT BEGAN WITH TRACE 

ASC » BUT WAS N9T F8LL8WED BY A BRU/' 

IFS330 STX TEMPI 

IDA TEMPI 

ETR ADRMSK 

STA FWPNTR 

BRU JFS21 

IFS31 SBRM ERR8R 

BRU IFS05 

ASC • F6RMAT STATEMENT POINTER IN 1,9 LIST IS UNACCEPTABLE/' 

IFS32 LDB 0#3 

SBRM ERRSR 

BRU JFS332 

ASC » F8RMAT STATEMENT LABEL HAS N8T 

ASC f $A SCALAR VARIABLE BY AN ASSIGN 

IFS332 STB TEMPI 

LDX TEMPI 

8RU IF313 

AGTP8P DATA 11200000B ASSIGNED G9 T8 FIXED P$P 
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BEEN SET UP 
STATEMENT/' 



IN' 



I6E00 



CLAB 

STA 

STA 

STA 

LDA 

STA 

LDA 

STA 

CIA; 

SBRM 

SKN 

BRU 

SBRM 

BRU 



FE8R 
P 

LPSTK4 
ADRLPS 
STKADR 
9NES 
FCPNTR 
STA MSCNT 
QNSOO 
11 

I8E25 
ERR6R 
I8E25 



CLR E8R FLAG 
SET P. SCALE w 
PBSSET F8R LEVEL 
8N LEFT PAREN STACK TABLE 



PBSSET F9RMAT CHARACTER P8INTER 
GET FIRST SPEC. FR8M F9RMAT 

SYNTAX ERROR IF NUMBER 



I8E25 



I6E30 

I8E31 



JMPTBU 



I9E38 



ASC 

SKE 

BRU 

BRU 

SKE 

BRU 

BRU 

SBRM 

BRU 

ASC 

SBRM 

LDX 

SKE 

BRX 

BRU 

BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 

SBRM 
BRU 



♦ NUMBER PRECEEDS IS 
LB 

♦ + 2 
LPOO 
LP 

♦ + 2 
LPOO 
ERRQR 
I8E30 

♦ N8 LEFT ( IN F6RMA 
ONSOO 

DM20 

CHRTBL+20^2 
** % 
JMPTBL+20#2 

ISS02 
JSS02 
ISS01 
ISS01 
ISS01 
ISS01 

xoo 

J8E30 

DLOO 

RPOO 

LPOO 

E8R00 

MOO 

POO 

MSOO 

I9E30 

RPOO 

LPOO 

I8E30 

J8E30 

ERR8R 
I8E30 



T LEFT-»PARENTHESlS/< 

TEST IF CHARACTER i LEFT BRACKET 

8R LEFT PARENTHESIS 
G8 PUT 8N UP STACK 
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T/t 

FETCH NEXT SPEC 

IDENTIFY CHARACTER 

G8 T8 APPR9PRIATE PR8CESS8R 
F8RMAT PR8CESS8R BRANCH VECTOR 

E 

F 

I 
A 

LETTER 8 

R 

X 

i (IGN8RE) 

$ 

3 
C 
/ 

H 
P 

m 

+ (IGNORE) 

) 

( 

CR (IGN8RE) 

LF (IGN8RE) 



ASC 



ROO 


EQU 


# 


AOO 


IDA 


e t t 




M8VE 


s*UFARF/B 




LDB 


• 3 


♦ 


SBRM 


ADSOO 


# 
EOO 


SBRM 


ARDOO 




IDA 


D 




ADD 


D6 




SKN 


ARGSGN 




SUB 


8NE 




STA 


WR 




CLAB 






SKE 


DBUFl 




BRU 


*+2 




8RU 


ElO 




IDA 


P 




SKN 


P 




AOM 


WR 




ADD 


D 




SBRM 


ARCOO 




IDA 


DE 




SUB 


P 




STA 


DE 




LDA 


P 


ElO 


STA 


PC 




SKN 


PC 




IDA 


ZER8 




ADD 


D 




STA 


DC 




LDA 


WR 




SKN 


11 




LDA 


FW 




SUB 


FW 




SBRM 


BFDOO 



» ILLEGAL F8RMAT CHARACTER/' 

A/R-F9RMAT PR8CESS8R 



A#R F8RMAT 
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ALPHA DATA SETUP F8R INPUT/8UTPUT 
E-F8RMAT PR8CESS8R 

G8 GET NEXT DATUM 



- 1 IF ARGUMENT P8SITIVE 
SET REQUIRED WIDTH « D + 6 

TEST IF ARGUMENT ■ 

BYPASS SETUP F8R P-SCALE FACT8R 

ADJUST WIDTH F8R P*SCALE FACT8R 

ADD R8UND-8FF CONSTANT 

ADJUST DECIMAL EXP9NENT F8R P*5CALE 
SET UP INTEGER DIGIT C8UNT 

AND FRACTI8N DIGIT C8UNT 
TEST F8R WIDTHLESS F8RMAT 

C8NVERT T8 F8RMATTED DECIMAL 





IDA 


DE 




LDB 


E 




SKG 


DMIOO 




LDB 


MS 




XAB 






SBRM 


jcwoo 




LDA 


DE 




SKA 


SIGN 




CNA 






§KG 


D99 




BRU 


E2* 


E20 


MUL 


8NE 




DIV 


D100 


E22 


SKE 


ZER8 




ADD 


s' C 


E23 


STB 


DE 




SBRM 


jcwoo 




UDA 


DE 




MUL 


8NE 




DIV 


D10 




STB 


DE 




SKE 


ZER9 




ADD 


!» 0' 




SBRM 


ICWOO 




LDA 


DE 




ADD 


i ' 0' 




SBRM 


ICWOO 




BRU 


ADS15 


E24 


XAB 






LDA 


MS 




SKN 


DE 




LDA 


8LNK 


# 


BRU 


E23 


FOO 


SBRM 
CLA 


ARDOO 




SKE 


DBUF1 




LDA 


P 



PROCESS DECIMAL EXP8NENT 

IF EXP8NENT < -99 
PUT MINUS SIGN IN PLACE 8F E 

PUT E IN WBUF 



MAKE NEGATIVE EXP8NENT POSITIVE 
TEST IF 3 DIGITS REQUIRED 

•100 < EXPONENT < 100 

EXPONENT > 99 
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PUT HUNDREDS DIGIT IN WBUF 



PUT TENS DIGIT IN WBUF 



PUT UNITS DIGIT IN WBUF 



IF EXP8NENT IS POSITIVE 
PUT BLANK IN PLACE §F MINUS SIGN 

F-F0RMAT PR8CESS8R 

G8 GET NEXT DATUM 

FBR N8N»ZE«8 ARGUMENTS 
ADJUST DECIMAL EXP8NENT F8R P*SCALE 





ADD 


DE 




STA 


DE 




ADD 


D 




SBRM 


ARCOO 




IDA 


D 




SKG 


ZERO 




BRU 


103 




CNA 






SKG 


DE 




IDA 


DE 




STA 


PC 




UDA 


D 




SKN 


DE 




6RU 


* + 2 




ADD 


DE 




STA 


DC 




IDA 


D 




ADD 


D2 




SKN 


DE 




ADD 


DE 


FXO 


SKN 


ARQSGN 




SUB 


ONE 




SKN 


12 




IDA 


FW 




SUB 


FW 




SBRM 


BFPOO 


* 


BRU 


ADS15 


HOO 


SKN 


IZ 




LDB 


one 




STB 


RC 


H03 


SKR 


RC 




SRU 


* + 2 




BRU 


W10 




SKN 


OT 




BRU 


H06 




SBRM 


FCSOO 




SBRM 


ICUOO 
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ADD ROUNDOFF 

EXIT THRU ^PROCESSOR IF D « 

SET UP INTEGER DIGIT COUNT 

AND FRACTION DIGIT COUNT 

SET REQUIRED WIDTH * D+2 

+ DE IF DE > 

- 1 IF ARGUMENT POSITIVE 
TEST IF WIDTHLESS FORMAT 

GO CONVERT TO FORMATTED DECIMAL 
H. FORMAT PROCESSOR 

TEST FOR IMPLICIT COUNT 
MAKE IT ONE 

TEST CHARACTER COUNT 
NOT DONE 

TEST OPERATING MODE 

INPUT MODE 
GET CHARACTER FROM FORMAT 

PUT CHARACTER IN WBUF UNCONDt 





SRU 


H03 


H06 


SBRM 


wcsoo 




SBRM 


ICFQ0#4 




BRU 


N03 


H10 


SKN 


9T 




BRU 


I9E30 


Hll 


IDA 


*377B 




SBRM 


icwoo 




BRU 


J9E30 


IOO 


SBRM 


ARDOO 




IDA 


DE 




SBRM 


ARCOO 


103 


CLAB 






$TA 


DC 




IDA 


DE 




SKG 


ZER8 




BRU 


108 


105 


STA 


PC 




ADD 


02 




SKN 


IF 




SUB 


8NE 




BRU 


F10 


108 


LDA 


9NE 




STB 


DBUF1 


* 


BRU 


105 


aoo 


CLA 






STA 


FARF 




UDB 


D8 




SBRM 


ADSOO 




SKN 


JZ 




BRU 


815 




LDA 


FW 



GET CHARACTER FR8M WBUF 

MQVE P6INTER AND PUT CHAR IN F8RMAT 



FLUSH MULTIPLE SPACES 
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NF8RMAT PR9CESS9R 

G8 GET NEXT DATUM 

ADD R0UND*8FF 

SET FRACTION DIGIT C0UNT * 

TEST IF ABS(ARGUMENT) < 1 
IT IS 

SET UP INTEGER DIGIT C8UNT 

SKIP IF N8N- INTEGER MODE 

DEO PTt N8T REQUIRED F8R INTEGER 
EXIT THRU F-PR8CESS6R 

MAKE ARGUMENT ? 

8-F8RMAT PR8CESS8R 

N8T A/R F8RMAT 

ALPHA DATA SETUP F9R INPUT/8UTPUT 
TEST IF WJDTHLESS F8RMAT 
IT IS* SETUP T9 SCAN T8 END 8F WBUF 



905 


STA 


CHCNT 




§BRM 


830 




BRU 


*w\ 


eio 


LOX 


D3 




SUB 


i» 0' 




SBRM 


JCDOO 




SBRM 


930 




SKN 


12 




BRU 


832 




CLAB 







BRU 


810 


815 


IDA 


WBLIM 




ISM 


2 




BRU 


805 


030 


HIT 


1830 




SKR 


CHCNT 




BRU 


835 


832 


IDA 


DBUF1 




LDB 


DBUF 




SKN 


ARGADR 




XAB 






BRU 


A0S31 


835 


SBRM 


^CSOO 




SKG 


^278 




SKG 


*17B 




BRU 


* + 2 




BRU 


810 




SKE 


SPACES 




BRU 


* + 2 




SBRR 


830 




SKE 


CMA 




BRU 


* + 2 




BRU 


832 




SKE 


1155B 




BRU 


837 




LDA 


*»l 




STA 


FE8R 




BRR 


L830 



GET NEXT INPUT CHARACTER 
IGN8RE IF LEADING BLANK 8R SPACE 

NUMBER BASE 

INSERT CHARACTER INT8 DBUF 
GET NEXT INPUT CHARACTER 
TEST IF WIDTHLESS FORMAT 
IT IS* TERMINATE 8N TRAILING BLANK 
MAKE BLANK 8R SPACE *Q 

EXTEND INPUT FIELD 
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TEST IF FIELD EXHAUSTED 
N8T YET 



TEST IF FL8ATING P8INT DATUM 

INTEGER DATUM 
G8 ST8RE DATA IN ARGUMENT ADDBSSS 
GET CHARACTER FR8M WBUF 
TEST IF 8CTAL 



IT IS 
TEST IF SPACE 

IT IS 
TEST IF C8MMA 

IT ISt G8 ST8RE DBUF 



637 



* 
* 
POO 

MSOO 



#ROO 
* 
# 
# 

xoo 

X02 



# 
* 
LPOO 



SBRM 

BRU 

ASC 



STB 

BRU 

SBRM 

XAB 

CNA 
XAB 
SKE 
BRU 
BRU 
SKE 
BRU 
SKN 
LD3 
BRU 



ERR9R N9N»9CTAL CHARACTER ERR9R 

810 

» N9N»ecTAL CHARACTER IN 5CTAL FIELD/' 

P- AND MINUS*F9RMAT PR9CESS9R 
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P 
I9E30 

DNSOO 



PP 
* + 2 
POO 
X 
I9E3B 

11 

9NES 
X02 



SET P-SCALE FACT9R 

FETCH NEXT SPECIFICATION 
NEGATE C9UNT 
TEST F9R P SPEC. 



TEST F9R X SPEC* 
ERROR IF N9T P 8R X 
TEST IF WIDTMLESS F9RMAT 
IT ISi SET C9UNT * "1 



R«F9RMAT PR9CESS9R 
IDENTICAL T9 A*F9RMAT# SEE AOO 



X«F8RMAT PROCESSOR 



SKN 
LDB 
XAB 

CNA 
SBRM 

wu~ 

&RU- 



LDA 



IZ 

9NE 



MPROO 

-hit 

---hit 




TEST IF IMPLICIT C9UNT 
MAKE IT 1 



M9VE P8INTER RIGHT SPECIFIED AM9UNT 
BUFFER 9VERFL8W 



LEFT»PARENTHESIS PR8CESS9R 



STKADR 



SKG 


ADRLPL 


SRU 


LP02 


SBRM 


ERR8R 


BRU 


I8E30 


ASC 


» EXCESSIVE 


LP02 ADD 


D3 


STA 


STKADR 


UDX 


9NES 


SKG 


ADRLP1 


STX 


PS 


LDX 


STKADR 


5KN 


IZ 


LDB 


8NE 


BAC 




SUB 


8NE 


"STA 


Q#2 


STA 


2/2 


LDA 


FCPNTR 


USH 


15 


MRG 


FWPNTR 


STA 


uz 


BRU 
* 


I8E30 


# 

RPOO SKR* 


STKADR 


3RU 


RP03 


IDA 


STKADR 


SKG 


ADRLPO 


BRU 


RP06 


SUB 


D3 


Sta 


STKADR 


BRU 


J8E3Q 


RP03 LDX 


STKADR 


LDA 


1*2 


MUL 


M0400 


STA 


FCPNTR 


BAC 




RCY 


9 


STA 


FWPNTR 



TEST IF LEFT PAREN STACK TABLE FULL 

STACK FULL 

F8RMAT NESTING/' 

MOVE STACK ADDBSSS T9 NEXT SL8T 



TEST IF LEVEL 8R 1 
IT IS! INDICATE N8 DATA SPECt F8UND 

TEST F8R IMPLICIT C8UNT 
MAKE IT 1 



SAVE GR8UP REPEAT C8UNT 
PACK CURRENT FORMAT P8INTERS 



AND SAVE 
RETURN T8 MAIN SCAN 
RIGHT-PARENTHESIS PR8CESS8R 

TEST REPEAT C8UNT 
N8T D8NE! PUSH BACK 

TEST IF 8UTERM8ST RIGHT PAREN 
IT IS 
IT IS N8TJ SET STKADR BACK A SL8T 

AND RETURN T8 MAIN SCAN 



UNPACK F8RMAT P8INTERS 



BSSET T8 MATCHING LEFT*PARENTHES IS 
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RP06 



RP05 

RP08 

RP10 



* 

DUOO 



DLoa 



BRU 

SBRM 

IDA 

ADM 

SKN 

BRU 

SBRM 

BRU 
ASC 

SBRM 

BRU 
SKN 
BRU 
UDA 
STA 
UDX 
UDA 
STA 
UDA 

MUU 
STA 
BAC 
RCY 
STA 
BRU 



SKN 

BRU 

SBRM 

BRU 
ASC 

SBRM 
SKE 



BRU 
SKN 
BRU 
SBRM 



I8E30 

FDUOO 

9NES 

MRTNAD 

DS 

RP08 

ERROR 

RP05 

» EFJA NEEDED IN F8RMAT/' 



OUTERMOST; TRY F8R MORE DATA 
THERE IS MORE? TERMINATE THIS RECORD 

TEST IF MORE DATA SPECS, -IN FORMAT 
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FDUOO 

** x 

UPSTK4 

RPIO 

ADRLPi 

STKADR 

STKADR 

2#2 

0/2 

1#2 

M0400 

FCPNTR 

9 

FWPNTR 
E8R01 



FLUSH REMAINING DATA FROM 1/6 LIST 

TEST IF RETURN IS T8 8R 1 LEVEL 

LEVEL 

1 LEVEL 

SET STACK ADDBSSS AT 1 LEVEL 



BSST8RE GR8UP REPEAT COUNT 
UNPACK F8RMAT P8INTERS 



AND BSST8RE 
EXIT THRU /-PROCESSOR 



$»PR8CESS8R 



ERR8R IF NUMBER PRECEEQS * 



11 

DL02 

ERR8R 

DL02 

» REPEAT COUNT PRECEEDS D8LLAR SIGN IN FORMAT/? 

FCSOO GET NEXT CHARACTER FR8M FORMAT 

DL TEST IF $ 

*+2 IT IS N8T 

DL10 

8T TEST WHICH MODE 

DL05 INPUT 

ICUOO PUT CHARACTER IN W3UF UNCOND* 



DL05 



DUO 



BRU 


DL02 


SBRM 


wcsco 


$KE 


DL 


BRU 


* + 2 


CLA 




SBRM 


ICFOO 


BRU 


0LQ2 


SKN 


9T 


BRU 


I9E30 


UDA 


«377B 


SBRM 


ICWOO 


BRU 


ISE30 



GET CHARACTER FR9M WBUF 
REPLACE WITH BLANK IF IT IS A 



PUT CHARACTER IN F8RMAT 
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FLUSH MULTIPLE SPACES 



/-PR9CESS8R (END 9F RECORD) 



E8RQ0 


SKN 


11 


E8RC1 


LDB 


8NE 




STB 


RC 


E9RQ3 


SKR 


RC 




BRU 


* + 2 




BRU 


I9E30 




CLB 






SKN 


9T 




STB 


MSCNT 




SKN 


9T 




BRU 


E9R07 




LDA 


il55B 




SBRM 


ICUOO 




BRU 


E9RQ3 


E0R07 


SKN 


FE9R 




BRU 


ESR10 




BRU 


E9R03 


E6R10 


SBRM 


WCSOO 




SKE 


§t55B 




BRU 


E9R10 




BRU 


E8R03 



TEST FOR IMPLICIT C9UNT 
MAKE IT 1 

TEST C9UNT 
N8T D9NE 



TEST OPERATING M8DE 



HUT 
STA 

STB 

SBRM 

IDA 

SKN 

BRU 

ADD 

STA 

SKN 
STA 
SUB 
LDB 

SKN 
BRU 
SKG 
BRU 
SKN 
BRU 
BRU 
STA 
SKN 

BRU 
SBRM 

BRU 
BRU 
IDA 
MRQ 
STA 
LDX 
LDB 
SKN 
BRU 
IDA 
SKN 
XAB 



UADSOO 

DBUF 

CHCNT 

FDUOO 

CHCNT 

ARGADR 

ADSQ2 

CHCNT 

CHCNT 

11 

FW 

FW 

DBUF 

OT 

ADS20 

ZERO 

ADS04 

FARF 

#♦2 

ADS05 

DW 

DW 

ADS06 

MPROO 

ISSIO 

ADS06 

FW 

SIGN 

DW 

ARGADR 

0*2 

ARGADR 

ADSOS 

1>2 

FARF 



ALPHA DATA SETUP SUBROUTINE 



(A)«SPACES FOR A FORMAT, *0 FOR 0>R 
<B)«3 F6R A#R FORMATS, «8 FOR 
GO GET NEXT DATUM ADDBSSS 

SKIP IF FLOATING POINT ARGUMENT 

INTEGER ARGUMENT 
DOUBLE CHARACTER C6UNT 

TEST IF WIDTHLESS FORMAT 
IT IS, SET FIELD WIDTH « DATA WIDTH 



SKIP IF 8UTPUT MODE 

GO SET UP FOR INPUT 
SKIP IF CHCNT > FW 

SKIP IF A FORMAT 

A FORMAT 

SKIP IF FW > DATA WIDTH 

M8VE POINTER TO 1ST OUTPUT CHARACTER 

BUFFER OVERFLOW 

SET DW TO OUTPUT 
FIRST FW CHARACTERS ONLY 



PUT 1ST WORD IN DBUF 

SKIP IF FLOATING POINT ARGUMENT 

INTEGER ARGUMENT 
PUT 2ND WORD IN DBUF 
SKIP IF A OR R FORMATS 

INVERT WORD ORDER FOR FORMAT 



3R6 



PAGE 16 



ADS08 



ADS10 

ADsia 

ADS13 



ADS15 



ADS17 



ADS20 



ADS22 



STA 

STB 

SKN 

BRU 

LDX 

IDA 

BRU 

LDX 

IDA 

STA 

SKR 

BRU 

SKN 

BRU 

©RU 

LDA 

SKN 

SBRM 

BRU 

BRU 

LDP 

LCY 

STP 

ETR 

SKN 

ADD 

SBRM 

BRU 

STB 

SKN 

SBRR 

SKA 

BRU 
LDX 
STX 

8KB 
BRU 

BRU 

SBRM 



DBUF 

DBUF1 

FARF 

ADSIO 

D8 

§3773 

ADS12 

D3 

D7 

CHSIZ 

CHCNT 

ADS17 

FARF 

A0S15 

ISSIO 

8NES 

IZ 

MPRQO 

ISSIO 

ISSIO 

DBUF 

0#2 

DBUF 

CHSIZ 

FARF 

■ ' 0' 

icwoo 

ADS13 

DBUF1 

FARF 

ADSOO 

SIGN 

ADS22 

FW 

CHCNT 

0NES 

ADS25 

ADS2<* 

MPRQO 
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SKIP IF A, 8R R FORMATS 

SET UP F8R 8 BIT CHARACTERS 

SET UP F9R 3 BIT CHARACTERS 



TEST IF LAST CHARACTER PR8CESSED 

N8T YET 
SKIP IF A 8R R F8RMAT 

G8 TEST REPEAT C8UNT 

TEST IF WIDTHLESS F8RMAT 
IT IS? INSERT BLANK 

G8 TEST REPEAT C8UNT 
GET DATUM FR8M DBUF 
SHIFT IN CHARACTER 

EXTRACT AND 

NUMBER BASE 

PUT IN WBUF 

SET UP DBUF T8 RECEIVE INPUT 

RETURN T8 8 PR8CESS8R F8R 8 INPUT 
SKIP IF DATA WIDTH > FIELD WIDTH 

SET UP T8 INPUT 8NLY FW CHARACTERS 

SKIP IF R F8RMAT 
SET SHIFT C8UNT ■ CHCNT « FW 
SET SHIFT C9UNT » FQR R FORMAT 

M8VE P8INTER T8 1ST INPUT CHARACTER 





NOP 





ADS24 


CLAB 




ADS25 


STA 


SHFCNT 


ADS26 


£KR 


CHCNT 




BRU 


ADS36 




LDP 


DBUF 


ADS30 


SKR 


SHFCNT 




BRU 


ADS34 


ADS31 


LDX 


ARGADR 




SKN 


ARGADR 




BRU 


ADS33 




STP 


0#2 




BRU 


ISS10 


ADS33 


STB 


0/2 




BRU 


issio 


ADS34 


LCY 


8 




BRU 


ADS30 


ADS36 


SBRM 


wcsoo 




$KE 


§155B 




BRU 


#+2 




BRU 


ADS40 




LDX 


D8 




SBRM 


ICDOO 




BRU 


ADS26 


ADS40 


LDA 


a m X 




STA 


FE8R 




BRU 


ADS36 


# 
ARCOO 


ZR9 


LARCOO 




SKC5 


013 




SKG 


ONES 




SBRR 


ARCOO 




MUL 


one 




CBX 






LDA 


DBUF 




ADD 


RNDT8L#2 



DISREGARD BUFFER OVERFLOW 

SET UP LEFT SHIFT COUNT 
TEST IF LAST CHARACTER PROCESSED 
NOT YET 

SKIP IF TERMINAL SHIFTING DONE 

NOT YET 
STORE DATA BY MODE 
SKIP IF FLOATING P8INT ARGUMENT 

INTEGER ARGUMENT 

GO TEST REPEAT CO 



LEFT JUSTIFY CHARACTERS IN A«B 
GET NEXT INPUT CHARACTER 
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INSERT IN QBUF 



PROCESS CARRIAGE RET* AS SPACE 



ADD ROUNDOFF CONSTANT SUBROUTINE 
28*41 CYCLES (920i93Q) 

TEST IF *\ < EXP < 14 



DOUBLE 
AND PUT IN X 

ADD ROUNDOFF 





STA 


DBUF 




LDA 


DBUF1 




ADC 


RNDTBL*1#2 




STA 


DBUF! 




avr 






BRU 


#4>2 




SBRR 


ARCOO 




MJN 


DE 




LDA 


ARC15 




STA 


DBUF 




LDA. 


ARC15+1 




STA 


DBUF1 


* 


SBRR 


ARCOO 


# 
ARDOO 


IRQ 


LARDOO 




SBRM 


FDLOO 




SKN 


8T 




BRU 


Q2B00 




SKN 


ARGADR 




8RU 


ARD08 




LDX 


ARGADR 




LDA 


1/2 




LDB 


Qj2 




STE 




ARDQ5 


STA 


DBUF1 




STB 


DBUF 




STX 


BE 




STA 


ARGSGN 




SKA 


SIGN 




SBRM 


CD800 




SKN 


IF 




SKN 


ARGADR 




8RU 


**2 




SBRM 


TTIOO 




SBRM 


RNFOO 




SBRR 


ARDOO 


ARD08 


CLAB 






LDA* 


ARGADR 
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TEST F8R ROUND §VERFL©W 
G8 C8RRECT F8R IT 

ADJUST DECIMAL EXPONENT 

SET SUM T8 Otl + EPSIL8N 

ACQUIRE AND REDUCE DATA SU8R8UTINE 



G8 FETCH DATUM ADDBSSS 

TEST OPERATING M8DE (» * ©UTPUT) 

DECIMAL T6 2 W8RD BIN 

TEST M8DE 8F ARGUMENT 

INTEGER 

FLOATING 
PICK UP DATA 

EXTRACT AND SAVE EXP8NENT 
AND PUT C8MP8NENT PARTS AWAY 



SAVE SIGN 8F ARGUMENT 

MAKE P8SITIVE 

TEST IF UFORMAT REQUESTED 
AND FL8ATING P8INT ARGUMENT GIVEN 

TRUNCATE T8 INTEGER 
REDUCE ARGUMENT T8 N8RMAL F8RM 



PICK UP INTEGER DATUM 



3FD00 



8FDC5 



BFDQ7 



BFD08 



BFD10 



LDX 


D23 


NOD 


23 


BRU 


ARD05 


ZRO 


LBFDOO 


STA 


DW 


SKN 


DW 


3RU 


♦ + 3 


SBRM 


MPROO 


SBRR 


BFDOO 


SKN 


ARGSGN 


BRU 


*+3 


LDA 


MS 


SBRM 


ICWOO 


LDA 


PC 


§KG 


ZERO 


BRU 


BFD07 


SKR 


PC 


SBRM 


IMTOO 


ADD 


i20B 


SBRM 


ICWOO 


BRU 


8FD05 


SKN 


IF 


SBRR 


BFDOO 


IDA 


PER 


S8RM 


ICWOO 


SKN 


PC 


BRU 


BFDlO 


MJN 


PC 


CUB 




LDA 


§' O 1 


SBRM 


ICWOO 


BRU 


3FD08 


SKR 


DC 


BRU 


• ♦2 


SBRR 


BFDOO 


SBRM 


IMTOO 


ADD 


t20B 



FLOAT 

B I NARY-TO*FORMATTED -DECIMAL 'ROUTINE 

TEST IF GIVEN WIDTH > REQUIRED WIDTH 

IT IS? MOVE P9INTER OVER 
EXIT IF BUFFER OVERFLOW 

INSERT MINUS SIGN 



PROCESS INTEGER DIGITS? 
MULTIPLY DBUF BY 10 

PUT CARRY IN WBUF 

SKIP IF NON-INTEGER MODE 
8R EXIT 

INSERT DECIMAL POINT 

TEST FOR LEADING FRACTION ZEROS 

INSERT THEM 
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PROCESS REMAINING FRACTION DIGITS 





SBRM 


JCWOO 


# 


BRU 


BFDIO 


CDBOO 


ZR9 
CLAB 


LCDBOO 




SUB 


D8UF 




ABC 






sue 


DBUF1 




LDX 


BE 




8VT 






8RU 


CDB06 




N8p 


1 


CDB04 


$TA 


DBUFi 




§TB 


DBUF 




$TX 


BE 




SBRR 


CDBOO 


CDB06 


RCY 


i 




BRX 


CDB04 


M, 


BRU 


CDB04 


* 


DECIMAL 


• T0<-2<"WeRD 


D2B00 


CLAB 






STA 


DBUF 




STA 


DBUFI 




STA 


DE 




STA 


XSDGTS 




IDA 


8NES 




STA 


ARGSGN 




STA 


EXPSGN 




IDA 


D 




STA 


FC 




LDA 


DM12 




STA 


NC 




CIA 






STA 


LSTCHR 




IDA 


WBLIM 
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C8MPLEMENT DATA BUFFER SUBR8UTINE 
34-27 CYCLES (920/930) 



SUBTRACT ARGUMENT FR8M ZER8 



PICK UP BINARY EXP0NENT 
••1 IF 0VERFL9W 



RIGHT SHIFT AND MAKE POSITIVE 
ADJUST EXP0NENT 



BINARY C8NVERSI8N 



ADD 



8NE 



SET BINARY SUM * 
DECIMAL EXPONENT « 
EXCESS DIGIT C6UNT * 

ARGUMENT SIGN * * 
EXPONENT SIGN » + 

FRACTI8N DIGIT C9UNT « D 
P8INT INDEX AT T8P 
8F PUNCTUATI8N TABLE 

LAST (PREVI8US) CHARACTER 
C8MPUTE MAXIMUM ALL8WA8LE 
FIELD WIDTH BASED 8N THE 
NUMBER 8F REMAINING W8RDS 



BLANK 



D2BQ5 
D2B06 



D2B10 



D2BJ2 



USH 


2 


SKN 


11 


BRU 


* + 2 


LDA 


FW 


STA 


DW 


SKR 


DW 


BRU 


D2B35 


LDA 


DE 


SKG 


D511 


BRU 


* + 2 


LDA 


D5U 


SKN 


EXPSGN 


CNA 




ADD 


XSDGTS 


SUB 


FC 


STA 


DE 


LDA 


DBUFJ 


LD8 


DBUF 


LDX 


D47 


N8D 


47 


STX 


BE 


SKG 


ZERO 


BRU 


D2B13 


STA 


DBUF1 


STB 


DBUF 


LDA 


NC 


SKG 


DM7 


SKN 


IF 


BRU 


D2810 


LDA 


DE 


SUB 


P 


STA 


DE 


SKN 


DE 


BRU 


D2B12 


SBRM 


FDTOO 


MIN 


DE 


BRU 


D2B10 


SKR 


DE 


BRU 


D2B21 



IN THIS RECORD 
TEST IF WIQTHLES3 FORMAT 

IT IS NOT 

TEST IF FIELD EXHAUSTED 
IT IS NOT! CONTINUE GETTING DATA 



SET DE*511 IF DE>511 

ATTACH SIGN TO DECIMAL EXPONENT 

DE*DE+XSDGTS»FC 



NORMALIZE BINARY SUM 
SAVE BINARY EXP0NENT 

PROCEED TO STORE IF ARGUMENT * 
STORE NORMALIZED SUM 



BYPASS P-SCALING IF EXPONENT GIVEN 
OR IF I»FORMAT CALLED FOR 



OTHERWISE ADJUST DE BY P. SCALE 
TEST SIGN 8F DECIMAL EXPONENT 

+? REDUCE BY MULTIPLICATION 

*: REDUCE BY DIVISION 
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D2B13 



D2815 



D2BU 



D2B17 



DPB19 



D2B21 

D2B22 



3KN 


ARGADR 


BRU 


D2B22 


SKN 


IF 


SBRM 


TTJOQ 


SKN 


ARGSGN 


SBRM 


CDBOO 


IDA 


M0400 


ADD 


DBUF 


ABC 




ADC 


DBUF1 


9VT 




BRU 


D26£5 


STA 


DBUFi 


IDA 


BE 


$KG 


DM257 


BRU 


D2B27 


SKQ 


MQ377 


BRU 


D2B17 


SBRM 


ERROR 


BRU 


D2B16 


ASC 


t EXPONENT 


SKN 


ARGSGN 


BRU 


D2B30 


UDA 


M03777 


LDB 


DM257 


BRU 


D2819 


IDA 


DBUF1 


LDX 


BE 


IDE 




UDX 


ARGADR 


STA 


1*2 


STB 


0*2 


BRU 


ISS10 


SBRM 


FMTOO 


BRU 


D2B12 


UDA 


D23 


SUB 


BE 


SKA 


SIGN 


BRU 


D2B26 



TEST INTERNAL MODE 9F ARGUMENT 

INTEGER 

FLOATING POINT 
MAKE FLOATING INTEGER IF NFORMAT 
TEST SIGN 9F ARGUMENT 

ATTACH SIGN T9 ARGUMENT 
ROUND TO 39 BITS 



TEST FOR ROUND OVERFLOW 

EXPONENT UNDERFLOW 

LIST OVERFLOW ERROR MESSAGE 
9FL9W 9N INPUT DATUM/? 

SET RESULT T8 PLUS FULL SCALE 

PACK EXPONENT INTO FRACTION 

STORE ARGUMENT 

GO TEST REPEAT COUNT 

SCALE DBUF AT BINARY 23 

ERROR OR *C UOOGOQOQB) 
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D2824 



D2B25 
D2B26 



D2B27 

D2B28 
D2B30 

D2B31 

D2B33 



SKG 
BRU 
UDA 
CAX 
LDA 
RSH 
LDX 
SKN 
CNA 
STA 
BRU 
UDA 
MJN 

BRU 
SKE 

BRU 
SKN 
BRU 

BRU 
LDB 

SKB 
BRU 
LDA 
LDX 

BRU 
SBRM 

BRU 
ASC 

CLAB 

BRU 
LDA 
LDB 
BRU 
SBRM 

BRU 
ASC 
LDA 

BRU 



D24 

* + 2 
D24 

DBUF1 
0*2 

ARGADR 
ARGSGN 

0,2 

issio 

TAGBIT 

BE 
D2B15 

D2831 
ARGSGN 

* + 2 
D2B31 

f57777777B 
DBUFl 
D2B31 

s40000Q0QB 
ARGADR 
D2824+3 
ERR8R 
D2B28 

* EXP8NENT UNDE 

D2B19 

SIGN 

M0377 

D2819 

ERR8R 

D2B33 

» INPUT INTEGER 

M03777 

D2824 
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SET SHIFT LIMIT AT 24 



SCALE RIGHT 

TEST SIGN dF ARGUMENT 

MAKE NEGATIVE 
ST8RE ARGUMENT 
G8 TEST REPEAT C9UNT 
C8RRECT Fd% 

R8UND 8VERFL8W 



N8T SCALED AT 24 
CK ARGUMENT SIGN 
NEGATIVE 

CK F8R MANTISSA § 200000008 

N8T P8SSIBLE 
SET UP »0 



LIST UNDERFL8W ERR8R MESSAGE 

RFL8W 8N INPUT DATA/' 

SET RESULT T6 ZER8 

SET RESULT T8 MINUS FULL SCALE 



INTEGER 8VERFL8W ERR9R MESSAGE 

8VERFL8W/' 

L8AD MAXIMUM INTEGER 
AND G8 ST9RE 



D2B35 


SBRM 


wcsoo 




SKG 


f31B 




SKG 


B17B 




BRU 


* + 2 




BRu 


D2B*5 




LDX 


NC 




SKE 


PNCTBL+12>2 




BRX 


*m\ h. 


M. 


BRU 


BRTBL+12>2 


BRTBL 


8RU 


D23Q5 




BRU 


D2805 




BRU 


D2B60 




BRU 


P2B62 




BRU 


D2B65 




BRU 


D2B66 




BRU 


D2B60 




BRU 


D2B63 




BRU 


D2306 




BRU 


D2B06 




BRU 


02368 




BRU 


D2B00 




$KT"-~ 


~~«TS"5B 




BRU 


D2B^6 




LDA 


§ » 1 




STA 


FE8R 




CLA 






'SBRM 


D28&3 


D2B46-> 






BRU 


D2B00 


scn5&- 


ASC 


» BAD CHARACTER 


D2B45 


SUB 


§20B 




STA 


USTCHR 




LDA 


MC 




SKG 


DM7 




BRU 


D2B47 




IDA 


DE 




MUL 


D5 



GET ANOTHER CHARACTER FR6M INPUT 

IT IS 

IDENTIFY INPUT CHARACTER 

■ - ...-■■• j 

BRANCH ACC8RDINGLY 

LEADING BLANK 
LEADING SPACE 

♦ (ARGUMENT) 

* (ARGUMENT) 



♦ (EXPONENT) 

- (EXPONENT) 

s 

TAB(CeNTR8L I ) 

SPACE 

Q-MARK START FLD 8VER 
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UNIDENTIFIED CHARACTER 
AND TERMINATE 



LAST CHAR 

IDENTIFY DIGIT, TYPE 
EXPQNENT DIGIT 





R8V 






LSH 


24 




ADD 


LSTCHR 




OVT 






IDA 


MQ3777 




STA 


DE 




BRU 


D2B05 


D2B47 


SKE 


DM7 




BRU 


D2350 




MIN 


FC 


D2B48 


IDA 


dbuf: 




SKG 


D83885 




BRU 


D2B52 




MJN 


XSDGTS 




BRU 


D2BQ5 


D2B50 


LDA 


DM8 




STA 


NC 




BRU 


D2B48 


D2B52 


SBRM 


IMTOO 




UDA 


LSTCHR 




ADD 


DBUF 




ABC 






ADC 


PBUF1 




STA 


DBUFt 




STB 


DBUF 




BRU 


D2B05 


D2B60 


EAX 


2#2 




STX 


NC 


D2B61 


STA 


LSTCHR 




BRU 


D2B05 


D2B62 


STA 


ARGSGN 




BRU 


# + 2 


D2B63 


STA 


EXPSGN 




EAX 


1# 2 




BRU 


D236Q+1 


D2B65 


CL3 






STB 


FC 




BRU 


P2B63+1 


D2B66 


EAX 


*6 
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INTEGER DIGIT 
FRACTION DIGIT 

TEST FOR POSSIBLE MULTIPLY OVERFLOW 

NO SWEAT* 
IGNORE BUT RECORD EXCESS DIGIT 



POINT TO • IN PUNCTUATION TABLE 
MULTIPLY BINARY SUM BY 10 
AND ADD CURRENT CHARACTER 



MOVE NC DOWN 2 PLACES 

SAVE LAST CHARACTER 

SET ARGUMENT SIGN NEGATIVE 

SET EXPONENT SIGN NEGATIVE 
AND MOVE NC DOWN 1 PLACE 

SET FRACTION DIGIT COUNT i 

SET NC TO POINT TO EXPONENT SIGNS 



D2B68 



BRU 


D2860+1 


SKN 


IZ 


BRU 


* + 4 


CLB 




IDA 


9 f 0' 


BRU 


D2345 


IDA 


LSTCHR 


SKE 


PER 


BRU 


**2 


8RU 


D2806 


SKG 


i' 9' 


SKG 


i* Q» 


IDA 


* f f 


BRU 


D2B61 



TEST IF W1DTHLESS F8RMAT 
IT IS 



AND PR6CESS ACC9RDINGLY 
TEST IF PREVI8US CHARACTER WAS PERISD 
IT WASJ TERMINATE 



3R6 



PAGE 27 



# 








PUNCTUATI9N TABLE 


PNCTBL 


DATA 







BLANK 




DATA 


Q 




SPACE 




DATA 


t 


*t 


+ 




DATA 


t 


• i 


m 




DATA 


16B 




9 




DATA 


45B 




E 




DATA 


» 


* 1 


+ 




DATA 


i 


• f 


* 




DATA 


» 


> » 


f 




DATA 


♦ 


P+200B 


TAB(CeNT I ) 




DATA 







SPACE 




DATA 


378 




Q*MARK (FIELD DELETE CHAR) 




DATA 









* 










# 










* 








DECIMAL NUMBER SCAN SU 



DNS00 



ZRa 

CLAB 

STA 

STB 



LDNSOO 

IZ 

DBUF 



32+40N » 32+46N CYCLES (920/930) 



SET IMPLICIT ZER9 FLAG (* w SET) 

SET ACCUMULATING SUM * 



DNS02 



DNS05 



SBRM 


FCSOO 


SKG 


i31B 


SKG 


il7B 


BRU 


* + 2 


BRU 


DNSQ5 


SKE 


BLNK 


BRU 


* + 2 


BRU 


DNS02 


STA 


NXTCHR 


UDB 


DBUF 


SBRR 


DNSOO 


SUB 


i2QB 


SKR 


U 


N8P 




XMA 


DBUF 


MUL 


D5 


BAC 




ADM 


DBUF 


BRU 


QNS02 



GET NEXT CHARACTER FR8M F8RMAT 
TEST IF DIGIT 



IT IS 
TEST IF BLANK 

IT IS? IGN6RE 
SAVE AS NEXT CHARACTER 
PICK UP C6UNT 



BSSET IMPLICIT ZER8 FLAG (w » BSSET) 

BINARIZE 

INC9MING 
DIGIT 
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FCSOO 



FORMAT CHARACTER SCAN SUBROUTINE 



FDTOO 



ZRd 


LFCSOO 


LDX 


FCPNTR 


BRX 


# + 3 


MIN 


FWPNTR 


LDX 


DM3 


3TX 


FCPNTR 


IDA* 


FWPNTR 


EXU 


RSHTBL 


£TR 


§377B 


SBRR 


FCSOO 


ZW 


IFDTOO 


IDA 


BE 


SUB 


D3 


CAX 





+ 3#2 



FLOATING DIVIDE BY TEN SUBR8UTINE 
91 CYCLES (920)* 55 CYCLES (930) 

ADJUST BINARY EXPONENT 



FMTOO 



IDA 


DBUF1 


LDB 


DBUF 


RSH 


1 


DIV 


M02400 


STA 


DBUF 


BAC 




PIV 


M02400 


MUL 


ONE 


LDA 


DBUF 


NOD 


X 


STA 


DBUF1 


STB 


DBUF 


STX 


BE 


SBRR 


FDTOO 


ZRO 


LFMTOO 


IDA 


D4 


ADM 


BE 


IDA 


DBUF1 


MUL 


MQ2400 


STA 


DBUF! 


LDA 


DBUF 


STB 


DBUF 


CLB 




RCY 


1 


MUL 


MQS400 


MUL 


one 


XAB 




ADD 


DBUF 


XAB 




ADC 


DBUF1 


LDX 


BE 


NOD 


1 


STA 


DBUF1 


STB 


DBUF 


STX 


BE 


SBRR 


FMTOO 
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COMPUTE FIRST WORD OF QUOTIENT 
AND SAVE 

COMPUTE SECOND WORD OF QUOTIENT 
POSITION IN 8 

P0ST»N8RMALIZE 



FLOATING MULTIPLY BY TEN SUBROUTINE 
53 CYCLES <920#930) 



COMPUTE NEW BINARY EXPONENT 
MULTIPLY 1ST WORD 



MULTIPLY 2ND WORD 
SHIFT RIGHT 23 



POST NORMALIZE IF NECESSARY 



INSERT CHARACTER IN DBUF SUBROUTINE 



ICDOO 


ZRO 


LICDQO 




XMA 


DBUF 




LD8 


OBUF1 




ISH 


0/2 




XAB 






MRG 


DBUF 




STA 


DBUF1 




STB 


DBUF 


# 


$BRR 


ICDOO 


ICFOO 


ZRO 

XA8 


IICFOO 




UDX 


FCPNTR 




SKN* 


ICFOO 




8RU 


ICF02 




BRX 


* + 3 




MIN 


FWPNTR 




LDX 


DM3 




STX 


FCPNTR 


ICFOH 


exu 


LSHTBL+3#2 




LDA 


CHMSK+3#2 




ETR* 


FWPNTR 




§TB* 


FWPNTR 




ADM* 


FWPNTR 




S8RR 


ICFOO 



20 CYCLES (980/930) 

SAVE CHARACTER TO BE INSERTED 

SHIFT DBUF (3 IF 8# 8 IF A OR R) 

INSERT CHARACTER 
AND PUT BACK IN DBUF 

INSERT CHARACTER IN FORMAT SUBROUTINE 
24*39 CYCLES (920): 24*32 (930) 

PUT CHARACTER IN B 

TEST IF POINTER T8 BE MOVED 

MOVE FORMAT POINTER 

POSITION CHARACTER 

INSERT IT IN FORMAT 
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♦OUTPUT CHAR TO FILE 
$ICWOO ZRO LICWOO 

SKR 

SBRR 
ICW02 BNE 

MIN 
BRR 



DW 
ICWOO 

i» »*icwio 

MSCNT 
LICWOO 



TEST IF FIELD WIDTH PERMITS INSERTION 
IT DOES NOT? EXIT 

MULTIPLE SPACE COUNT 



icwio 


XMA 


MSCNT 




SKG 


■ 3 




BRU 


ICW30 




CAQ 






LDA 


91358 




CIS 


CURFLE 




CBA 






CIO 


CURFLE 


icwu 


CLA 




ICWJ5 


XMA 


MSCNT 


ICW2Q 


SKE 


i377B 




CIO 


CURFLE 




BRR 


LICWOO 


ICW30 


XMA 


MSCNT 




RCH 


AB + CA 


ICW32 


SKR 


MSCNT 




BRU 


» + 2 




BRU 


ICW35 




CLA 






Old 


CURFLE 




BRU 


ICW32 


ICW35 


STA 
CBA 


MSCNT 


jt 


BRU 


ICW20 


$icgoo 


ZR8 


LICWOO 


* 


BRU 


ICW02 


IMTOO 


ZR8 


LJMTOO 




UDA 


DBUF 




MUL 


D5 




SKA 


SIGN 




ADD 


oio 




STB 


DBUF 




XMA 


DBUF1 




MUL 


D5 




XAB 






ADD 


DBUF1 
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MS ESCAPTE CHAR 



MULTIPLE SPACE FLUSH CHAR 
RRENT FILE 



OUTPUT CHARACTER UNC6ND, 

INTEGER MULTIPLY BY TEN SUBROUTINE 
*0*<*1 CYCLES (920/930) 



MULTIPLY 2ND W6RD 

ADD CORRECTIVE 10 IF ARGUMENT < 

MULTIPLY 1ST W8RQ 
ADD PREVIOUS PR8DUCT 





XAB 






ADC 


ZERO 




LSH 


1 




STA 


DBUF1 




BAC 






RCY 


1 




XMA 


DBUFl 


# 


SBRR 


IMTOO 


ISSOl 


CLA 






BRU 


**2 


ISS02 


UDA 


ONES 




STA 


if 




MJN 


DS 




STX 


FT 




SKN 


IZ 




IDB 


ONE 




STB 


RC 




SBRM 


DNSOO 




STB 


FW 




SKN 


IF 




BRU 


ISS12 




§KE 


PER 




BRU 


ISS12 




IDA 


IZ 




STA 


TMPIZ 




§BRM 


DNSOO 




IDA 


TMPIZ 




STA 


IZ 


ISS09 


STB 


D 


*** COME HERE 


FROM D2B AND 


issio 


LDX 


FT 




SKR 


RC 




BRU 


ISSl5+20#2 




CLAB 






STA 


IZ 




LDA 


NXTCNR 




BRU 


I9E31 



PUSH CARRY 8VER 



SEPARATE INTEGER 
FROM BSST 8F PR8DUCT 



INITIAL SPECIFICATION SETUP ROUTINE 

SET INTEGER FLAG (* p SET) 

BSSET INTEGER FLAG (* ? BSSET) 

INDICATE DATA SPEC, FOUND 

SAVE TRANSFER INDEX 

SKIP IF EXPLICIT ZERO C8UNT 

OTHERWISE MAKE C8UNT * 1 

AND SAVE REPEAT COUNT 
GO GET FIELD WIDTH 

SKIP IF INTEGER FLAG BSSET 

8R BYPASS ACQUISITION OF D 
TEST IF NEXT CHARACTER » PERIOD 

IT JS NOT? SET D p 

IT IS? GO GET Q 
SAVE STATUS OF IZ 

GO GET D FROM FORMAT 
BSSTORE IZ 



FROM ADS WHEN A/R FORMATS 

TEST REPEAT COUNT 
GO/RETURN TO APPROPRIATE PROCESSOR 

SET IMPLICIT.-ZER0 FLAG 
PICK UP NEXT CHARACTER 
RETURN TO MAIN SCAN 
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ISS12 
ISSX5 



* 
* 

MPROO 
MPR04 



MPR05 
MPR06 
MPRIO 



* 

RNFOO 



CLAB 

BRg 

BRU 
BRU 
3RU 

BRU 
BRU 
BRU 



ZR0 
AXC 
STX 

SKN 
BRU 

BRU 
SBRM 
BNE 
M8VE 

BRU 
LDX 
BRX 

MIN 

SBRR 

LDA 

SBRM 

BRU 



ZR9 

CLAB 
5TA 
SKE 
BRU 




ISS09 

EDO 
FOO 
IOO 
AOO 
800 
ROO 



SET D « 
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M8VE 



LMFROO 



POINTER RIGHT SUBR8UTINE 

36*40 CYCLES (920*930) 



MPRX 

8T 

* + 2 

MPRIO 

WCSOO 

f!55B#MPR05 

*«1#FEBR#A 

MPRQ6 

MPRX 

MPRO^ 

LMPROO 

MPROO 

■ » t 

ICUOO 

MPRQ5 



LRNFOO 



SET F8R N8RMAL RETURN 



DE 

DBUF1 

RNF03 



REDUCE T8 NORMAL F9RM SUBROUTINE 
25+62E - 30+100E CYCLES (920) 



SET DECIMAL EXPONENT » 



RNF02 



RNF03 



RNF05 



RNF10 



TTIOO 



SBRR 


RNFOO 


SBRM 


FMTOO 


SKR 


DE 


NOP 




LDA 


BE 


SKG 


DM3 


BRU 


RNF02 


SKG 


ZERO 


BRU 


RNFJtO 


SBRM 


FDTQO 


MJN 


DE 


LDA 


BE 


BRU 


RNFQ5 


CNA 




CAX 




LDA 


DBUF1 


LDB 


DBUF 


NSM 


Q*2 


STA 


DBUF1 


STB 


DBUF 


SBRR 


RNFQO 


ZR9 


LTTIOO 


LDA 


BE 


SKA 


SIGN 


LDA 


ONES 


SUB 


D47 


SKA 


SIGN 


BRU 


* + 2 


SBRR 


TTIOO 


STX 


TMPx 


CNA 




CAX 




LDA 


DBUF1 


LDB 


DBUF 


kSM 


0#2 


LSN 


0/2 


STA 


DBUF1 



EXIT IF ARGUMENT 
DE*DE«1 



TEST BINARY EXPONENT 
< »4S REDUCE BY MULTIPLICATION 

IN RANGE; GO SCALE AT BINARY 
> 0! REDUCE BY DIVISION 
DE*DEM 



MOVE SHIFT COUNT TO X 
PICK UP REDUCED ARGUMENT 

SCALE RIGHT TO BINARY 



TRUNCATE T8 INTEGER SUBROUTINE 

17«80 CYCLES (920)J 17-42 CYCLES (930) 

LOCATE POSITION OF BINARY POINT 

ARGUMENT <1 

•1 < BE < 48 
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TRUNCATE ALL BITS 
TO 

RIGHT 
OF 
BINARY 



STB 


OBUF 


LDX 


TMPX 


SBRR 


TTIOO 
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wcsoo zm uwcsoo 

*ALt 8-BIT TRIMED ASCII CMARS ARE LEGAL EXCEPT ( H4i 135* 137, 155 ) 
*LINE FEED ECHOED F6R C»Rt 
^MULTIPLE SPACES EXPANDED 

*E8F, CR# EST CAUSE RETURN 

SKN FE9R 

BRU RIF1 

IDA i* » 

BRR LWCSOO 

RIF1 SKR MSCNT 

BRU **2 

BRU RIF3 

CLA 

BRU RIF20 

RIF3 CIO CURFLE CURRENT FILE N9 

ABC 

SKE CURFLE 

BRU RIF4 

M9VE *• 1/FRUB^A 
RIF4 CBA 

LDX il 

SBRM ACB 

DATA 152Q0G00B+RIF3 JGN8RE L«Ft 

DATA i550O000B+RIF16 C.R. 

DATA 14^00000B+RIF13 E.Q.Tt 

DATA 13500000B+RIF7 M.St 

DATA 13700000B+RIF14 EtS.Ft 

DATA 9BIT+RIF5 

RIF5 SKQ s377B 

§KG §•! 

BRU RIF3 

RIF20 SBRR WCSOO 
RIF13 CLA 



SKE CURFLE 

BRU RIFX6 

TC9 9152B 

RIFi6 IDA *CARRET 

BRU RIF20 

RIF7 CIO CURFUE 

STA MSCNT 

BRU RIF1 

RIFH MOVE i-l#FRUB#A 

SBRM ERROR 

BRU CS CMMD START 

ASC » END OF FILE READ/' 
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# 






# 


DAT 


A T A b L 


* 
CHRTBL 


EQU 


* 


E 


DATA 


45B 




DATA 


46B 




DATA 


51B 




DATA 


*1B 




DATA 


57B 




DATA 


62B 


X 


DATA 


70B 


CMA 


DATA 


1*B 


Dl 


DATA 


<HB 


RB 


DATA 


758 


LB 


DATA 


738 


SLASH 


DATA 


17B 


H 


DATA 


50B 


PP 


DATA 


60B 


MS 


DATA 


I5B 




DATA 


13B 


RP 


DATA 


11B 


LP 


DATA 


IOB 


PER 


DATA 


168 




DATA 


155B#152B 



AND CONSTANTS 
CHARACTER TABLE 



) 
( 
t 

CR/LF (IGNORE) 
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CHARACTER RIQHT SHIFT TABLE 



$RSHTBL tRSM 
LRSH 
N6P 

# 

$LSHTBL LSH 
LSH 

$N8PM9P N0P 

* 

SRNDTBL DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



$D8 

# 

$D13 

D24 

D39 

DD39 

$D99 

$0100 

$D511 

$D8388 

SDM2 

$DM3 

$DM7 

$DM8 

$DM12 



DATA 
DATA 
EQU 
EXT 
DATA 
DATA 
DATA 
5 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



16 
8 

Q 

16 

8 

Q#2 

0#Q20000000B 

03X463147B#01463H6B 

02436560B/0121727B 

023351362B#010142B 

033427262B#0643B 

Q74265422B,051B 

0l^336750B,04B 

032657712B#0 

0S536310B/O 

0211340B#0 

01557^B,0 

01300B#0 

01068*0 

010B#0 

13 

24 

39 

39 

99 

100 

511 

83885 

• 2 
«3 
»7 

*8 

• 12 



CHARACTER LEFT SHIFT TABLE 



R6UND 8FF TABLE 

5*10(»2) 
5*10(-3) 
5*10(**) 
§*10(»5) 

5*10(-6> 
5*10(»7) 
5#10(»8) 
5«10(«9) 
5»X0<-10) 
5*10(-11) 
5»10<«i2) 
5*10(-13) 
5*10(»l<O 
C9NSTANTS 



$DM20 DATA 


• 20 






$DM100 DATA 


■ 100 






M040 EQU 


40B 






SM04000 DATA 


04000B 






$M040L DATA 


040000QB 






*M02400 DATA 


02*0000006 






$ARC15 DATA 


063146316Bj 


i031463HB 


ERRFCH DATA 


026233Q00B 






ERR9CT DATA 


046236300B 






$ADRtPO ZR8 


LPSTK 




FSCAN LPSTK ADDBSSS 8F LEVEL ( 


SADRlPi ZR8 


UPSTK3 




FSCAN LPSTK ADDBSSS 8F 1 LEVEL { 


SIFP8NE DATA 


1 






$TAGBIT DATA 


020000000B 






* P R 8 


G R A M M E [ 


) 8 


PERAT9R LINKAGES 


$P9PIST BRU 


XSDP8P 


100 


FIXED SET UP DUMMY 


BRU 


FSDP8P 


101 


FL8ATING SET UP DUMMY 


BRU 


PRCP8P 


102 


PRINT CHAR 


BRU 


PRQP8P 


103 


PRINT QU8TE 


BRU 


XSTP8P 


104 


FIX AND ST9RE 


BRU 


FSTP8P 


105 


FL8AT AND ST8RE 


BRU 


• 


106 




BRU 


STDP8P 


107 


ST8RE D8UBLE PRECISI8N 


BRU 


D8XP8P 


110 


D8 FIXED 


BRU 


D8FP8P 


111 


D8 FL8ATING 


BRU 


AGXP8P 


112 


ASSIGNED G8 T8 FIXED 


BRU 


AGFP8P 


113 


ASSIGNED G6 T8 FL8ATING 


BRU 


XFAP8P 


114 


FIXED FIRST ARGUMENT 


BRU 


FFAP8P 


115 


FLOATING FIRST ARGUMENT 


BRU 


XNAP8P 


116 


FIXED NEXT ARGUMENT 


BRU 


FNAP8P 


117 


FL8ATING NEXT ARGUMENT 


BRU 


XI8P8P 


120 


FIXED INPUT/8UTPUT 


BRU 


FJ8P9P 


121 


FL8ATING INPUT/8UTPUT 


BRU 


UTFP8P 


122 


L8AD THEN FL8AT 


BRU 


LTXP8P 


123 


L8AD THEN FIX 


BRU 


* 


124 
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BRU 


LDPP8P 


125 


L8AD D8UBLE PRECISION 


BRU 


FTAP8P 


136 


FL6AT THEN ADD 


BRU 


« 


127 


(DIV - 910) 


BRU 


* 


130 


(SKB - 910) 


BRU 


FLAP8P 


131 


FL8ATING ADD 


BRU 


FTSP8P 


132 


FL8AT THEN SUBTRACT 


BRU * 




133 




BRU 


« 


134 


(CAX » 910) 


BRU 


aspep 


135 


FL8ATING SUBTRACT 


BRU 


FTMP8P 


136 


FL8AT THEN MULTIPLY 


BRU 


* 


137 




BRU 


XMPP8P 


HO 


FIXED MULTIPLY 


BRU 


FLMP9P 


141 


FL8ATING MULTIPLY 


BRU 


FTDP8P 


H2 


FL8AT THEN DIVIDE 


BRU 


* 


143 


(STE - 910) 


BRU 


XDVP0P 


144 


FIXED DIVIDE 


3RU 


FLPP8P 


145 


FL8ATING DIVIDE 


BRU 


* 


146 


(CNA • 910) 


BRU 


FLNP6P 


147 


FL8ATING NEGATE 


BRU 


ALXP8P 


150 


ASSIGN LABEL T8 FIXED 


BRU 


ALFP8P 


151 


ASSIGN LABEL T8 FLOATING 


BRU 


BKPP8P 


152 


8REAKP8INT P8P 


BRU 


PPSPQP 


153 


D8UBLE PRECISI8N SUBTRACT 


BRU 


DPAP8P 


154 


P8UBLE PRECISI8N ADD 


BRU 


OPMP0P 


155 


D8UBLE PRECISI8N MULTIPLY 


BRR 





156 


STATEMENT LABEL P8P 


$PBPEND BRU 


* 


157 


(CXB • 910) 


* LIN 


K A G E S 


T 8 


USER C8DED PR8GRAMME 


* 9 P E 


R A T 8 R S 


1 6 


1SYS THRU 177SYS AND 


L I N 


K A G E S 


T 8 


SYSTEM 3UBR8UTINES 


* a o o 

* 

* C 8 N 


SYS T H 
S T A N T S 


R U 


247SYS AS REQUIRED 
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$WBLIM DATA 


70 




MAXIMUM FIELD WI 


$MJNUS DATA 


fQOOOOOOB 






SIGN EQU 


MINUS 






$ADRMSK DATA 


37777B 






$P6PADR DATA 


017600000B 






$AP8PCD DATA 


015000000B 






CARRET EQU 


155B 






SPACES DATA 









BLNK EQU 


SPACES 






$FLIND DATA 


01000000B 




FL6ATINQ IN 


MQ77 QATA 


077B 






CHMSK DATA 


00177777B 






DATA 


77600377B 






DATA 


77777400B 






$M778 DATA 


077777700B 






$8PMASK DATA 


37700000B 






MSK3C EQU 


CHMSK 






SM01777 DATA 


0I7777777B 






F I X , 


i F L 9 A T 


A 


N D E R R 8 R 


♦UNDEFINED LABEL »* ALL UNSATISFIED TRANSFERS 


$UNDEF SBRM 


ERR6R 






BRU 


CS 




C8MMAND START 


ASC 


• UNDEFINED 


LABEL REFERENCED/* 


* 1/8 
# 


BUFFER 


P 


ARAMETER 


* C9NSTANTS 






D2 DATA 


2 






TW8 EXT 


P2 






TWO EQU 


D2 






D3 DATA 


3 






D4 DATA 


* 






D5 DATA 


5 







ALL8WED 
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P6INT HERE 



D6 

D7 

D9 

D10 

$P23 

D47 

DM4 

MQ3777 

MAXP8S 

MAXP8S 

MQ377 

DD255 

DD255 

M0400 

NEGBEX 

NEGBEX 

$EMASK 

M0777 

8777 

6777 

$MU9NES 

DM257 

M257D 

M257D 

9BIT 

* 



DATA 6 

DATA 7 

DATA 9 

DATA 10 

DATA 23 

DATA 47 

DATA «4 

DATA 0377777778 

EXT M03777 

EQU MQ3777 

DATA 0377B 

EXT MQ377 

EQU M0377 

DATA 0400B 

EXT M0400 

EQU M0400 

DATA 0700B 

DATA 0777B 

EXT M0777 

EQU M0777 

DATA 0777770008 

DATA »287 

EXT DM£57 

EQU DM357 

EQU 000400008 
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Q U 8 T E 5 



SCRIP 

$IDC8MP 

$SPCEQT 

$MEMQT 

SIIUQT 

$ERRQT1 

$ERRQT2 

$PSEQT 

SST8PQT 



ASC 
ASC 
ASC 

ASC 
ASC 
ASC 
ASC 
ASC 
ASC 

END 



$/» 

$L8ADJNG C8MPLETE$/ f 
W8RDS 8F ST8RAGE UNUSED/' 

$M>>/! 

$err8r: /» 
$either ig t6 g8# ;d t8 disregard* 

$PAUSE /' 
$#ST8P*$/» 



8R RUB8UT/' 



4R6 IOENT 



9*30 DEBUG PKG» AND SYSt SUBR8UT** RUNTIME PART 4 9/30 115 37 



PAGE t 



CIT 



9PD 



13400000B#1#1#0#1 



CHARt INPUT AND TEST 



#RCH 8P DEFINJTI8NS 


FCL 


8PD 


460045QB#2 


FCR 


&PD 


46Q0224B#2 


BXC 


®PQ 


4600022B#2 


XBC 


0PD 


24600040B/2 


CA 


EQU 


1 CLEAR A 


CB 


EQU 


2 


* 


cx 


EQU 20000QOOB 


AB 


EQU 


4 A T8 8 


BA 


EQU 


10B 


BX 


EQU 


20B 


XB 


EQU 


408 


XA 


EQU 


2008 


AX 


EQU 


400B 


M8VE 


MACRS 


P 


M8VE1 


NARG 






IF 


'Oli$i*2)'!'iO' 




CLtD(M8VEl) 




ELSF 


1 




LDtD(M9VEl) D(l) 




ENDF 




M8VE2 


EQU 


2 




RPT 


M9VE1-2 




STfD(MSVEl) D(M8VE2) 


M8VE2 


ENDR 


M&VE2+1 


jt 


ENDM 




STZ 


MACR8 


A ST9RE ZER8I 


BFS 


MACR8 


Dl SKN D(1)J BRU 


BTR 


MACR9 


Dj SKN D(l)j BRU 


BEQ 


MACR8 


Dl SKE DU)J BRU 


BNE 


MACR8 


Di SKE D(1)J BRU 


SETT 


MACR8 


D; MavE MiiOd) 



FULL CYCLE LEFT 
FULL CYCLE RIGHT 
8 T8 Xi CLB 
X T8 B# CLX 



ARPAS DEMANDS »2 



CLA i STA AU> ; ENDM 

DC2); ENDM 

♦*2J BRU 0(2)1 ENDM 

**2J BRU D(2)i ENDM 

D(2); ENDM 
*D(2)J ENDM 



SETF MACR9 0; M8VE «0/D ( 1 ) /D < 2 ) I ENDM 4R6 PAGE 2 



ICT 8PD 10600000B/1/1 

PRC 9PQ 10200000B/1/1 

PRQ 8PD 10300000B/1/1 

FL,A 9PD 0131000008*1/1 

FIS 9PQ 0135000008^ i#l 

FLM 8PD 014100000B/1/1 

FLP 9PD 014500000B/1/1 

LFP 9PD 012500QOOB/1/1 

STD 9PQ 0107000008/ 1/1 

AXC 3PD 046004018/2 

AXCE $PD 04600501B/2 

AXBA 9PD 046004503/2 

8XC dPD Q4600022B/2 

BXAC 9PD 04600222B/2 

XJ9 9PD 120000003/1/1 

FI9 9PD 121000003/1*1 

XMP dPQ 140000Q0B/lil 

FFA 9PD 115C0000B/1/1 

FIN 9PQ 147000006/2 



6BIT EQU 004000003 
9BIT EQU 00040000B 



** SYSTEM SUBR9UTINES *# 



* START 9F DUMMIES 

$STRTDM HLT USTRTD 



IDA 


EOADR 


STA 


EADR2 


BRR 


LSTRTD 


* 940 


END QF DUMMIES 


$ENDDMY HUT 


LNDDMY 


LDA 


EADR2 


§KE 


EADR1 


BRU 


El 


E3 BRR 


LNDDMY 


El SBRM 


ERR8R 


BRy 


E3 


ASC 


♦ WR8NG NUMBER 8F ARGUMENTS IN SUBROUTINE 
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CALL/' 



# 


940 


C8MPUTED G8 T8 


$C8MPG8 ZR8 


ICMPG8 




MIN 


LCMPG8 




SKG* 


LCMPG8 




SKG 


ZER8 




BRU 


CGERR 




SUB 


8NE 




ADM 


UCMPG8 


C8G84 


BRR 


UCMPG8 


CGERR 


SBRM 


ERR8R 




BRU 


C8G84 




ASC 


' EXPRESSI8N IN C8MPUTED G8 T8 IS 8UT 9F B8UNDS/ 


# 


224 


IF8VFL IF 8VERFU8W 


*'IF©VFL HIT 


IIFVFL 




SKN 


8VFIND m%n 8VERFL8W 




MIN 


UIFVFL 




CLAB 






$TA 


8VFJND 




BRR 


IIFVFL 
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* 940 
$J8LUSA HIT 


JNFUT-ft 
II9LSA 


IDA 


EOADR 


STA 


EADR 


IDA* 


EAOR 


STA 


ARRAY 


MJN 


EADR 


IDA* 


EADR 


ETR 


137777B 


STA 


ELEMTS 


IDA 


ARRAY 


SKA 


FLTIND 


aRu 


F3 


F2 SKR 


ELEMTS 


8RU 


Fl 


BRR 


LI8LSA 


fi xia* 


ARRAY 


MIN 


ARRAY 


aRu 


F2 


F3 SKR 


ELEMTS 


BRU 


F4 


BRR 


LI9LSA 


F4 fis# 


ARRAY 


MIN 


ARRAY 


MIN 


ARRAY 


©RU 


F3 


* 
* 
♦ IF SENSE 


SWITCH 


SIFSNSW ZR8 


LIFSNW 


STX 


TX 


§KG 


DEC24 


SKQ 


ZER8 



INPUT-OUTPUT LIST UNSCRIPTED ARRAY 



(204) 





BRU 


C2 




CAX 






LOA 


§40000000B 




CA8 






ICY 


0j2 




LDX 


TX 




SKM 


SENSSW 




MIN 


LIFSNW 


C3 


BRR 


LIFSNW 


cz 


SBRM 


ERRQR 




iRU 


C3 




ASC 


' SENSE SWITCH EXPRESSI9N 9UT 9F B9UNDS/ 1 


* 


IF 


SENSE LIQMT (205) 


$IFSNLT HLT 


IIFSNL 




STX 


TX 




§KG 


QEC24 




S<0 


ZZRd 




8RU 


ox 




CAX 






IDA 


«40000000B 




LPS 


*40000000B 




ICY 


Q#2 




LDX 


TX 




SKM 


§ENSLW 




MJN 


LIFSNL 




E9R 


*•! 




ETR 


SENSIW 




STA 


SENSIW 




8RR 


IIFSNL 


Dl 


SBRM 


ERR0R 




8RU 


02 




ASC 


» SENSE LIGHT EXPRESSI8N 9UT 9F 39UNDS/' 


D2 


MIN 


IIFSNL 




BRR 


UIFSNL 
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* 4R6 PAGE 6 

♦ SENSE LIGHT (227) 

SSENSLT HIT LS£NST 

STX TX 
CL3 

§KE ZER9 

IDS SENSIW 

STB SENSIW 

SKG DEC24 

SKG i»l 

RCH AX*CA 

LDB i^OOOOCOQB 

USH 0#2 

MRG SENSUW 

STA SENSIW 

LDX TX 

8RR LSENST 

Bl IDA LSENST 

SUB il 

STA lIFSNL 

BRU 01 

DEC24 DATA 24 



** DEBUGGER ** 

DCS $RU CS C8MMAND START 

$DEBUG NOP 

BRU 050 

DJO SBRM TIN 

STA CCHR 

BRU D50 

*TEST FOR END 8F LINE 

DTE81 UDA CCHR 

0TE6L2 SKE »155B 



• GET 

$050 



• TEST 



053 



BRU 
SBRM 

STA 

BRU 
PR8GRAM 
SETT 
SETF 
LDX 
LDA 
BEQ 
IF INTEGER 
SKG e 
§KG 
BRU 
BRU 
SETT 
BRU 
BFS 
SBRM 
SKG s' 
SKG f» 



D55 



*SKJP 
D56 



D50 
TIN 
CCHR 
DTE6U2 
8R VARIABLE NAME 
FNAME#A 
FF18AT#A 

CCNR 

*» $'*D65 

VARIABLE 
9 f N' 
■ f P'i 
•+2 
D57 

FFL6AT#B 

D57 

FNAME/D63 

TIN 



*fR6 
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1ST CHAR MUST BE LETTER 



9' 

0' 



■1 



057 



LRSH 
LDA 
ICY 
STA 
LSH 
LDA 
LSH 
STA 
BRX 
BFS 
REST 9F 
SBRM 



DNAME2 
8 

PNAME2 
16 

DNAME1 
8 

DNAME1 
D53 

FNAME,p7Q 
NAME AFTER FIRST 
TIN 



BUT 

6 CHARACTERS 



STA 
SKG 

SKG 
BRU 



CCHR 



a » 

058 
056 



A» 



D58 


SKG 




§ * 9» 




SKG 




i' 0**1 




BRU 




D70 




BRU 




D56 


D57 


SKQ 




«• Z» 




SKG 




f' AU1 




BRU 




D60 




BRU 




D55 


*BIANK 


8UT REST 9F NAME IF LESS THAN 6 CHARACTERS 


D60 


LOB 




«f f 




STA 




CCHR 


D62 


STQ 




DNMCMR 


D63 


SETF 




FNAM^B 




LDA 




QNMCHR 




BRU 




D55 


• D8UAR 8UT 


REST 8F NAME 


D65 


LDB 




i ' $* 




§BRM 




TIN 




STA 




CCHR 




BRU 




D62 


♦EXAMINE NAME 


TERMINAT8R 


D70 


IDA 




DNAME1 




BNE 




*• »/D*00 




M0VE 




ZER6#DNUMB^DADRlNjA 




LDA 




CCHR 




BEQ 




s' |»#D230 F9RCES MAIN PROGRAM 


D75 


SKG 




f » 9' 




SKG 




§♦ OM 




BRU 




D80 




SUB 




• » Q» 




XM A 




PNUMB 




MUL 




§5 




CBA 








ADM 




DNUMB 


D77 


S3RM 




TIN 




BRU 




D75 


D80 


CLX 







4R6 



PAGE 8 



START 



DBAD 



SBRM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BRU 



*TYPE VALUE 
D85 LDB 
LDX 
LDA 
BRS 
LDA 
BEQ 
SKG 
BRU 

Tee 

LDA 

D86 LDB 

LDX 

BRS 

8RU 
D87 TCa 
LDA 
CNA 
BRU 



ACB 

01000000B+D100 
* f +D85 
/'+D1000 

; f *D200 

• UD9Q 

♦'+D95 

«'+D9*» 

P+01120 

R'+DllOQ 

FUOilOO 
6BIT*D&AD 
BAD 



■ 10 

■ 1 

DNUMB 

36 

DADRIN 

ZERe^CS 

ZER0 

D87 

• • +f 

DADRIN 

§10 

■ 1 

36 

CS 

*t it 

QADRJN 



EXCLAMATION PT 
STATEMENT MODIFICATION 



P8S. RELATIVE ADDRESS INCREMENT 
NEGt REL« ADDRt INCt 
COMMON INTEGER TYPEOUT 
COMMON REAL 
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086 



D90 



LDA 
SIKE 

iRU 



DDOTA 
i»l 

D92 





BRU 


DBAQ 


D8T UNASSIGNED 


D92 


STA 


DNUMB 






MOVE 


DD6TR#DADRIN#A 






BRU 


D77 




♦NEGATIVE RELATIVE AODR 




D94 


LDB 
**L * 


ilO 






BRS 


38 






CNA 








BRU 


D97 




♦POSITIVE RELATIVE ADDR 




D95 


LDB 
CLX 


ilO 






BRS 


38 




D97 


ADM 


DAPRIN 


ADDRESS INCREMENT 




CBA 




TERMINATING CHAR 




BRU 


D80 




♦BREAK 


P8JNT 






DIOO 


SBRM 


TIN 






BNE 


sl55B#D105 






STA 


CCHR 






BRU 


P125 


REMOVE ALL BREAK 


D105 


SUB 


■ » 0» 






SKG 


§3 






§KG 


=•0 






BRU 


DBAD 






STA 


DBN 






IDA 


DNUMB 






SKE 


ZERO 






BRU 


♦ 4-2 






BRU 


* + 3 






SBRM 


D150 






BRU 


CS 




♦REMOVE SOMETHING 






SKE 


DBN 






BRU 


D120 
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♦ REM8VE ALL BREAK PaiNTS 



D109 


LDX 


§1 


DUO 


SKN 


BKQADR#2 




SBRM 


D130 




EAX 


1*2 




CXA 






SKG 


■ 3 




BRU 


DUO 




BRU 


CS 


♦REMQVE A BREAK P6INT 


0120 


LDX 


DBN 




SBRM 


D130 




BRU 


CS 


0125 


IDA 


DNUMB 




BNE 


fO/DBAD 




BRU 


D109 


*(X)« 


>8P NUMBER 


D130 


ZRa 


LD130 




LDA 


BK0ADR # 2 




SKE 


■ ■i 




BRU 


#♦2 




BRR 


L0130 




ETR 


137777B 




FCl 






LPA 


0*2 




ETR 


*37777B 




MRG 


STUM5P 




STA 


0j2 




FCR 






IDA 


s«l 




STA 


BK0ADR,2 




BRR 


LD130 


*SET 


A BREAK 


P9INT 


D150 


£R$ 


UCLFLE 




SBRM 


U9CSTA 



fR6 
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MUST HAVE A> N8TNING M8RE 
REMBVE AIL BtPt 



CXA 




STA 


QTMP2 


LDA 


DBN 


§KE 


ZER8 


BRU 


* + 2 


LDA 


8NE 


CAX 




SBRM 


P130 


IDA 


QTMP2 


STA 


BK0ADRj2 


CAX 




LDA 


0#2 


ETR 


I77740000B 


SKE 


stlmsp 


BRU 


DBAD 


LDA 


0#2 


ETR 


137777B 


MRG 


BKPM8P 


STA 


Q>Z 


SBRR 


P150 


D200 SETF 


FNEXT#A 


SBRM 


TIN 


D210 CLX 




SBRM 


ACB 


DATA 


♦S'+CSET 


DATA 


'RUCRSET 


DATA 


♦8UD8UT 


DATA 


» I '+DIN 


DATA 


'C+DCL8SE 


DATA 


<G»*D25Q 


DATA 


»N'+D260 


DATA 


'W+D1200 


DATA 


<P'+D13QQ \ 


DATA 


6BIT+DBAD 


*CL8SE FILE 
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REMOVE 6LD BP IF SET 



ANOTHER BREAK P8INT ALREADY SET MERE 



6PEN ©UTPUT FILE 
8PEN INPUT FILE 
CL8SE FILE 

N8«DEBUG 

WRITE G8TQ BINARY PR8GRAM 

PR8CEED AFTER BREAK 9R ESCAPE 



DCLQSE 


; lda 


QNUMB 




BNE 


iO#DCL6S5 




SBRM 


CLAFLE 




BRU 


cs 


DCL8S5 


> SBRM 


CLFLE 




BRU 


CS 


#6PEN 


©utput 


FILE 


D6UT 


LDA 


DNUMB 




SKG 


§9 




SKG 


fl 




BRU 


DBAD 




SBRM 


CL^LE 




TC6 


i» » 




CLEAR 






BRS 


18 




BRU 


DBAD 




XAB 






SKE 


fl55B 




BRU 


DBAD 




XAB 






LDX 


13 




BRS 


19 




BRU 


DBAD 




MRQ 


s^QOOOOOOB 




LDX 


DNUMB 




STA 


FLNMT # 2 




BRU 


cs 


*6PEN 


INPUT f 


r !LE 


DIN 


LDA 


DNUMB 




SKG 


• 9 




SKG 


n 




8RU 


DBAD 




SBRM 


CLFLE 




TC9 


§ » t 




CLEAR 






BRS 


15 
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CL6SE ALL FILES 



IF FILE 8PENED* CLSSE IT 



SYMB0LIC 



BRU 


DBAD 


BRS 


16 


BRU 


DBAD 


str 


137777777B 


LDX 


DNUMB 


STA 


FLNMT#2 


BRU 


cs 
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*CMMD> 


SENSE 


SWITCH(SET/RESET 


$CSET 


M8VE 


fQjPSSWjA 




BRU 


cssw 


$CRSET 


M8VE 


s»l#FS$W#A 


cssw 


LDA 


DNUMB 




SKG 


§24 




SKG 


ZER0 




BRU 


BAD 




LOB 


SIGN 




RCH 


AX+BA 




ICY 


0#2 




SKN 


FSSW 




BRU 


CSSW3 




E8R 


i»l 




ETR 


SENSSW 




BRU 


CSSW4 


CSSW3 


MRG 


SENSSW 


CSSW4 


STA 


SENSSW 




BRU 


CS 


D23Q 


SETT 


fnext,a 




SBRM 


TIN 




BNE 


»♦ G',D2*Q 


$D240 


SBRM 


SIDPNT 




LDX 


s » 1 



N8T SEMI-COL&N G 
F6RCE T8 MAIN PR8GRAM 



0?5Q 



D26Q 



CLA 
BRS 
M8VE 
M8VE 

PRQ 

M8VE 

SBRM 

IDA 

LOB 

SKM 

IRU 

EAX 

STX 

M8YE 

CLEAR 

STA 

SRU* 

SKN 

BRU 

BRU 

LDA 

ETR 

CAX 

LDB 

LDA 

§KM 

BRU 

£TR 

SBRM 

BRU 

CAX 

SBRM 

LDA 

STA 

ADD 

STA 

LDA 

STA 

SBRM 



12 

ZER8jDNUMB*A 
**1*MRSTL*A 



DADRIN#D08TR*A 

L9CSTA 

0#2 

•X7700000B 

BKPM8P 

* + 2 
1#2 
DTMP1 
«»2/FRUN#A 

BRKRP 
DTMPl 
BK1ADR 

* + 2 
DBAD 
3K1ADR 
§37777B 

»77400000B 

1#2 

ilOOOOOB 

* + ^ 

1377778 

D150 

P250 

L9CLB4 

8l 

DBN 

DD8TR 

DADRIN 

DD8TA 

DNUMB 

D150 



SET BREAK 8N EVERYTHING (8N G8 T8 RETURN) 



SET D8T 

L9CATE STATEMENT 
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FIRST W8RD AFTER B.Pt 



CLEAR BREAK RETURN ADR. 





SKR 


DADRIN 




BRU 


pa5o 


D400 


LDA 


CCHR 




BNE 


iHB/D45Q 


♦SWITCH SUBPRQGRAM 


D410 


LDX 


flDPNT 


D4Q5 


LDA 


DNAME1 




SKE 


\*z 




PRU 


D420 




LDA 


DNAME2 




SKE 


&» w- m*r 




BRU 


Q420 


♦ NAME 


MATCHED 
CXA 






ETR 


§377778 




STA 


UPR8GS 




LPA 


0/2 




£TR 


S37777B 




SUB 


■ I 




STA 


UPR8GN 




LDA 


3/ 2 




ETR 


•37777B 




§TA 


UDATAS 




BRU 


P10 


D420 


LDA 


0/2 




ETR 


107700000B 




BEQ 


£ER8/DBAD 




LDX 


0/2 




BRU 


D405 
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18AD P6INT 



USER PR8GRAM START 



USER PR8GRAM END 



USER DATA START 



SPR6G N8T FOUND 



♦FIND VARIABLE BASE 

D450 LDX UPR8GN 



USER PR8GRAM END 





LDX 


0/2 


D455 


LDA 


DNAME1 




SKE 


0/2 




BRU 


D460 




UDA 


DNAME2 




SKE 


1/2 




BRU 


D46Q 




LDA 


2/ 2 




STA 


DV3ASE 




BRU 


P5Q0 


D460 


CXA 






ADO 


1 3 




CAX 






SKG 


UPR8GN 




BRU 


D455 




BRU 


BAD 


*ADJUS 


T FOR 


VARIABLE SUBSCRIPTS 


D500 


LDA 


CCHR 




BEQ 


»1GB/D51Q 


♦SCALER VARIABLE 




LDA 


2/2 




ADD 


UDATAS 




STA 


DVBASE 




LDA 


CCHR 




BRU 


D61C 


♦ARRAY 


VARIABLE 


D510 


ax 
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VARIABLE BASE 



N6 SUCH VARIABLE IN THIS SPR8G 



LEFT { 



USER DATA START 



LDB 
BRS 
XA8 
BNE 
STA 
LDA 
ADM 

CBA 

SUB 



• 10 
38 

■11B/DBAD 
CCHR 
UDATAS 
DVBASE 

si 



NOT RT. PAREN 



ZERO-ORIGIN INDEXING 





ADM 


DVBASE 




8FS 


FFL8AT#D530 




ADM 


DVBASE 


D530 


SBRM 


TIN 


D610 


CLX 






SBRM 


ACB 




DATA 


»/ , +D620 




DATA 


* C+D70Q 




DATA 


' ' '*D8Q0 




DATA 


6BIT+DBAD 


♦INTEGER •• FL 


PT. 


D620 


BTR 


FFL8AT#D625 




SKN* 


DVBASE 




BRU 


D621 




TC8 


i » *t 




UDA* 


DVBASE 




CNA 






BRU 


D622 


D621 


TC9 


• » t 




UDA* 


DVBASE 


D622 


LDB 


■ 10 




LDX 


9NE 




BRS 


36 




TC8 


»' ' 


♦INTEGER INPUT 






TC9 


«f } 




LDA 


«t55B 




CIT 


ZERO 




BRU 


♦*2 




BRU 


DCS 




LDB 


• 10 




CLX 






BRS 


38 




STA* 


DVBASE 




BRU DCS 
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CHARt INPUT AND TEST 8N CARRIAGE RET. 
NEXT CHARt N9T CAR. RET. 
CAR, RETt# N8 CHANGE T8 VARIABLE 
INPUT DECIMAL INTEGER 



*FL6ATING PT 

D625 LDX s21100001B 

LDP# 0V8ASE 

XA8 

BRS 53 

TC8 s» » 

IDX "21300000B 

BRS 52 

BRU DCS 

XAB 

STP* DVBASE 
DCS 
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*0CTAI, 8UTPUT 

D700 TC8 s» t 

BTR FFUeAT#D71C 

M8VE i7/TEMP* # A 

LDA* DVBASE 

BRU D730 

D710 M8VE «15/TEMP1 # A 

LDP* DVBASE 

D730 STP DNAME1 

D740 LDP DNAME1 

LCY 3 

STP DNAME1 
CBA 

e;tr f7 

ADD » f 0* 

CIS 8NE 

SKR TEMPI 

BRU D740 

TC8 »• ! 
♦8CTAI INPUT 

SBRM TIN 

BEQ 5l55B#DCS 



M8VE iO#DNAMEl#DNAME2#B 





BRU 


D925 


D920 


SBRM 


TIN 




BEQ 


*155B/D9^0 


D925 


SUB 


«' 0* 




SKG 


i7 




BRU 


# + 2 




BRU 


DBAD 




XMA 


QNAME2 




LDB 


DNAME1 




LCY 


3 




ETR 


•77777770B 




ADM 


DNAME2 




STB 


DNAME1 




BRU 


P920 


♦ASCII 


» » ( 


OUTPUT 


D800 


TC© 


* » t . 




UDA 


i3 




BFS 


FFU8AT^D805 




LDA 


«6 


D805 


STA 


TEMPI 




LDP* 


PVBASE 




STP 


PNAME1 


D810 


LDP 


DNAME1 




LCY 


8 




STP 


DNAME1 




CBA 






ETR 


■ 377B 




CI8 


(5NE 




SKR 


TEMPI 




BRU 


D810 




TC5 


u 




SBRM 


TIN 




BEQ 


fl55B/DCS 




BRU 


D955 


♦CHARACTER 


INPUT 


D950 


SBRM 


TIN 
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BEQ 


il55B,D940 




D955 XMA 


DNAME2 




LOB 


DNAME1 




LCY 


8 




ETR 


S77777700B 




ADM 


DNAME2 




STB 


DNAME1 




BRU 


D950 




D94C LDP 


DNAME1 




D960 BTR 


FFL©AT # D97C 




STB* 


DVBASE 




iRU 


CS 




D970 STP* 


DVBASE 




8RU 


cs 




* STATEMENT 


MeDJFICATiaN* 




DIOOO Tee 


i ' ' 




TC9 


§» » 




SBRM 


TIN 


TERMINAL INPUT 


BEQ 


i!55B#CS 


CL8SE 


BNE 


■» C*#DBAD 




PRQ 


C8NTQT 


C6NTINUE GU9TE 


♦PLANT BRU AR8UND STATEMTNT# 




SBRM 


L&CSTA 




EAX 


1*2 




STX 


LACB 




MJN 


QADRIN 


NEXT STATEMENT 


SBRM 


L9CSTA 




CXA 






MRG 


•OQIOOQOOB 




XXA 






BEG 


LACB^CS 




STX* 


LACB 




0RU 


CS 
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*C8NVERTS C0MM8N ADDRESS BACK T8 TRUE 



D1120 


SETF 


FFL6AT/B 


D1100 


CLX 






IDA 


DNUMB 




SKG 


• 




BRU 


0U30 




LRSH 


23 




DIV 


»10 




STA 


DNUMB 




LSM 


24#2 




ADM 


DNAME1 




EAX 


3/2 




BRU 


D1100+1 


D1130 


UDA 


DNAME1 




SUB 


S50C01B 




SKG 


«27777B 




SKG 


■ H77B 




BRU 


DBAD 




STA 


QVBaSE 




BRU 


D53Q 


♦WRITES 9UT 


PR8GRAM JN G8 


D}2Q0 


LDA 


i55555555B 




§KE 


sgsts 




BRU 


# + 2 




BRU 


DBAD 




STA 


SG6T8 




TC9 


• 155B 




LDX 


i«9 




LDA 


EG8T8,2 




STA 


EWG,2 




BRX 


*»2 




CLEAR 






BRS 


18 




BRU 


DBAD 




LDX 


■ 1 




BRS 


IS 




BRU 


DBAD 




STA 


DNUMB 
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C8NVERTED DEC. BACK T8 BINARY 



MUST BE IN PROGRAM RANGE 
C8DE START *1 (SEE C8DEST IN LDR?) 



F0RM WITH B88TSTRAP R8UTINE 
CK SW IF ALREADY IN G8T8 



YES,N8T ALL8WED AGAIN 
SET SW# 

M8VE B88TSTRAP T9 TEMP8RARY ST8RAGE. 



8PEN 8UTPUT FILE 
TYPE 1 FILE 

FILE N6. 



EG0T9 



D1300 



CLA 




wie 


DNUMB 


LDA 


§277778 


wie 


DNUMB 


UDA 


tWGeTe 


wie 


DNUMB 


CLX 




LDA 


f30000B 


Bid 


DNUMB 


NOP 




LDA 


I27657537B 


wie 


ONUMB 


wie 


DNUMB 


LDA 


DNUMB 


BRS 


20 


PRU 


cs 


RAP ROUTINE F6R GO 


DATA 


77770000B 


DATA 


fF8RL 


BRS 


43 


XAB 




ETR 


KG9T9 


MRG 


KG8T91 


XAB 




8RS 


44 


BRU 


D24Q 


EQU 


* 


LDA 


BRKRP 


BEQ 


ZER8*BAD 


TC9 


*X55B 


M9VE 


s»2iFRUN#A 


LDP 


BRKRA 


LDX 


BRKRX 


BRR 


BRKRP 



FIRST C9RE L9Ct 
LAST C8RE L9C 

STARTING LOCATION 
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KG6T8 IN 1R 
KGBT81 IN 1R 



PROCEED AFTER BREAK OR ESCAPE 
CK IF ALLOWED 
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*18CATE STATEMENT 
♦EXAMINES CURRENT SPR8G 

*I/ (DNUMB)fSTA LABEL NB# (DADRIN)-REL ADDR INC. IN N0. 6F STATEMENTS 
#8/ X«ADDR 

$L8CSTA ZR8 LL8CST 

LDA UPR8GS USER CURRENT PR8G START 

ADD flOB 

CAX 

LDA DNUM8 

BEQ i*t#L©CST9 

SKE §0 

BRU L9CST8 

BRR LL9CST 
LBCST1 CBA 

L8CST8 LDB i37777B 

L8CST2 SKM 0,3 

BRU L8CST4 

CAB 

LDA 0/2 

ETR 177740000B 

BNE BKPM8P,L8CST3 

BRU LREH 

L8CST3 BNE STLM8P* L8CST6 

BRU LREL1 

L8CST4 EAX 1*2 

XXA 

$KQ UDATAS USER DATA START s END 8F CURRENT PR8G 

BRU L8CST5 

BRU PBAD 
LSCST5 XXA 

BRU L8CST2 

L8CST6 EAX J/2 

XXA 

SKG UDATAS 

BRU L8CST7 

BRU DBAD 
L6CST7 XXA 

BRU L8CST1 



L8CST9 


LDX 


UPR8GS 




BRR 


LL8CST 


*L8CATE LABEL 


GIVEN STA ADDR 


*I/A»PR8G ADDR 




#8/ SETS D8T 




SL9CLBL ZR8 


LL8CST 




ETR 


u37777B 




CAX 






M8VE 


iO#DD8TR#B 


L8CLB1 


LDA 


0*2 




ETR 


177740000B 




BNE 


STLM8P # LaCLB5 


L9CLB3 


LDA 0*2 






ETR 


■37777B 




BNE 


ZER8#L8CLB4 




MIN 


DD8TR 


L8CLB9 


EAX 
CXA 


* t#2 




SKG 


UPR8GS 




BRU 


* + 2 




BRU 


L8CLB1 




SKE 


UPR8GS 




BRU 


* + 2 




BRU 


L8CLB1 




LDA 


f "1 


L8CLB4 


STA 


DD8TA 




BRR 


LL8CST 


L8CLB5 


BEQ 


8KPM8P/L8CLB3 




SRU 


L8CLB9 



•RELATIVE ADDRESS 

LREL1 M8VE QADR IN*L8CTMP, A 

SKN L9CTMP 

BRU LREL19 
#G8 BACK T8 EARLIER STATEMENT 
LREL8 EAX -1*2 

CXA 
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SKG UPR8GS 4R6 PAGE 26 

BRU **2 

BRU IRE112 

SKE UPR6GS 

BRU PBAD 

LREU18 IDA 0,2 

ETR «77740000B 

SKE STUM9P 

BRU LREL10 
LREUll MIN laCTMP 

SKN U^CTMP 

BRR tiacsT 

BRU URE18 

LREliO SKE BKPM9P 

BRU LREL8 

8RU IRELXX 
#G8 FORWARD T9 LATER STATEMENT 

LRE119 §KR leCTMP 

LREL20 EAX 1*2 

CXA 

SKG UDATAS 

BRU * + 2 

BRU DBAD 

LDA 0*2 

ETR «77740000B 

SKE STUM9P 

BRU LREL30 
LREL2X SKR 19CTMP 

BRU IREL20 

BRR IL8CST 

LREL30 SKE BKPM9P 

BRU LREL20 

BRU IRE12X 

♦TERMINAL INPUT 
*X SAVED 

$TIN IRQ UTIN 

TIN10 CI8 ZERQ 



SKG 


i77B 


SKQ 


?»l 


E3RU 


♦ ♦2 


BRR 


LTIN 


beq 


il52B,TIN10 


BRR 


UTIN 
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♦READ SNLY ST8RAGE 
SBKPM9P DATA 152000008 
$STIM0P DATA 15600000B 
END 



BREAK P6INT mP 
STATEMENT LABEL MSP 



SYM. PG»LN. IDENT. 



10RTW9 


2 


28 


1L6 


1STIAD 


2 


8 


116 


1WD9BU 


3 


2 


XL6 


240SYS 


35 


3 


2L6 


2NDPAS 


10 


38 


2L6 


63IT0P 


36 


5 


2L6 


8BIT9P 


35 


8 


2L6 










Ab 


1 


17 


2L6 


ABSBIN 


29 


6 


216 


ABSCNT 


2 


9 


1L6 


ABSL9P 


35 


13 


2L6 


ADJC9M 


16 


30 


216 


ADRMSK 


35 


32 


2L6 


ALBADR 


36 


4 


2L6 


ALLD9L 


34 


20 


2L6 


ALPRIN 


21 


?8 


2L6 


APEND 


36 


13 


2L6 


ARFXCK 


35 


34 


2L6 


ARPBIN 


27 


32 


2L6 


ASSM 


27 


22 


216 


AX 


1 


21 


216 


AYTBST 


1 


26 


1L6 


BAD9P 


3 


38 


2L6 


BE3 


1 


25 


216 


3FWADR 


2 


37 


1L6 


3LKL9P 


35 


19 


2L6 


BLKSTL 


1 


19 


1L6 


BNE 


1 


24 


2L6 


B9TLT 


1 


22 


1L6 


39TLT1 


1 


21 


1L6 


B9TLT2 


1 


20 


1L6 


BREAK 


1 


36 


1L6 


BRUM8P 


35 


1 


2L6 


BUFCNT 


2 


38 


1.16 


BX 


1 


18 


2L6 


CA 


1 


15 


2L6 


CALQT 


34 


12 


216 


CB 


1 


16 


2L6 


CESYM 


4 


14 


116 


CESYMP 


4 


13 


1L6 


CESYMS 


4 


12 


116 


CHAR 


3 


17 


116 


CHKSUM 


2 


39 


1L6 


CKALPG 


21 


12 


2L6 


CKPRAD 


19 


24 


2L6 


CNVHSW 


2 


29 


116 


CNVHWD 


2 


27 


1L6 


CQDEST 


36 


12 


2L6 


C9NV 


13 


39 


2L6 


C8RENT 


2 


36 


1L6 


C9UNT 


2 


22 


1L6 


CPEND 


36 


1* 


2L6 


CTRWD 


28 


13 


2L6 


CURWRD 


3 


10 


116 


DEC 


1 


26 


2L6 


DELL6P 


35 


1* 


2L6 


DUMKEL 


36 


3 


2L6 


OUMTKY 


36 


1 


216 


EQADR 


1 


10 


1L6 


EOIND 


1 


12 


1L6 


EOSI/E 


1 


14 


116 


EOTAG 


1 


11 


1U6 


EADRl 


1 


13 


1L6 


EAXTAG 


35 


7 


2L6 


EIGHT 


34 


39 


2L6 


ENDA3S 


2 


25 


116 


ENDLD 


24 


9 


2L6 


ENT 


2 


2 


1L6 


E9FWRD 


34 


24 


2L6 


E9LWRD 


34 


25 


2L6 


E9SUBF 


27 


18 


2L6 


ERR1 


4 


34 


2L6 


ERR2 


27 


1 


?L6 


ERRPT 


25 


38 


2L6 


ERRQT 


34 


17 


2L6 


FCL 


1 


12 


2L6 


FCR 


1 


13 


2L6 


FDBUG 


3 


22 


1L6 


FLAG 


1 


30 


1L6 


FLSPND 


1 


29 


1L6 


FLSPST 


1 


C o 


1L6 


FNBUT 


34 


10 


216 


F9RK 


4 


35 


2L6 


F6RK1 


4 


39 


2L6 


F9RK10 


4 


36 


2L6 


F9RL 


1 


22 


2L6 


FR9MQT 


34 


9 


2L6 


FRUB 


3 


15 


1L6 


FSTBRK 


3 


21 


1L6 


FTBLE 


34 


27 


216 


FTBLE1 


34 


26 


2L6 


FxSKEY 


35 


33 


2L6 


FXSPST 


1 


27 


1L6 


G9RUN 


3 


27 


1U6 


HEADST 


2 


16 


1L6 


HITCNT 


2 


34 


1L6 


H9LDLX 


1 


39 


1L6 


ICTP9P 


33 


13 


216 


ILLF1 


,26 


21 


2L6 


ILLF2 


26 


24 


2L6 


ILLFUT 


34 


13 


2L6 


ILLQT 


34 


5 


216 


ILLTAP 


26 


18 


2L6 


ILLTP1 


26 


19 


2L6 


ILQT1 


34 


14 


2L6 


ILQT2 


34 


15 


2L6 


ILQT3 


34 


16 


2L6 


INCBRK 


17 


38 


2L6 


IND3IT 


36 


8 


2L6 


INFLE 


3 


16 


116 


LI 


2 


8 


2L6 


L10 


6 


19 


2L6 


Lll 


6 


22 


216 


Llll 


24 


29 


216 


L112 


24 


25 


2L6 


L12 


6 


23 


2U6 


L125 


27 


37 


216 


L129 


30 


3 


216 


L13 


6 


28 


2L6 


L130 


28 


27 


2L6 


L131 


30 


9 


216 


L132 


29 


29 


216 


L133 


29 


7 


2L6 


L134 


29 


9 


2L6 


L135 


30 


12 


216 


114 


6 


38 


2L6 


L15 


7 


17 


2L6 


L16 


7 


20 


2L6 


L160 


30 


18 


2L6 


L161 


30 


19 


2L6 


L162 


30 


36 


2L6 


L17 


7 


23 


2L6 


L170 


31 


6 


2L6 


LV\ 


31 


7 


2L6 


L172 


31 


H 


2L6 


U173 


31 


26 


2L6 


L18 


7 


27 


2L6 


U18o 


31 


30 


2U6 


L183 


32 


1 


2L6 



L19 S 8 2L6 L2 2 16 216 L20 3 15 2L6 L200 25 15 2L6 

L205 25 17 2L6 L207 25 20 2L6 L21 8 19 2L6 L21C 25 26 216 

L22 8 24 2L6 L220 25 7 2U6 L23 8 27 2U6 124 8 39 2L6 

L25 9 2 ?L6 L250 24 39 2U6 L26 9 5 2L6 127 9 6 216 

L2S 9 7 2L6 L28A 9 9 216 L29 H 15 2L6 L29£ 11 23 2L6 

L3 3 11 2L6 L3Q 11 25 2L6 L31 11 29 2L6 L32 11 32 2L6 

L33 12 2 2L6 L34 12 5 2L6 L3b 12 7 2L6 L36 12 11 2L6 

L36B 12 15 2L6 L36L 12 23 2L6 L.36X 13 12 2L6 L36y 13 2 2L6 

L37 14 ^ 2L6 L37A 14 14 3U6 L38 14 20 2L6 L39 14 25 2L6 

L> 5 20 2L.6 L30 1* 31 2L6 L*H 15 11 2L6 142 15 16 2L6 

L43 15 33 2L6 L44 15 21 2L6 145 16 5 216 146 x e 7 216 

147 16 n 2L6 148 16 19 2L6 |>9 16 35 2L6 L5 5 22 2L6 

L50 16 36 2L6 L5l 17 11 2L6 L52 17 15 2L6 L53 17 19 2L6 

L54 17 22 2L6 L55 17 24 216 L56 \7 30 2L6 L57 18 10 2L6 

Lb8 18 15 216 L59 IS 25 2L6 L6 5 32 2L6 L60 18 37 2L6 

L61 18 38 2L6 L62 19 19 216 L63 19 21 2L6 164 19 38 216 

165 20 1 216 L66 20 12 216 L67 20 14 2L6 L68 20 15 216 

L69 20 21 2L6 L7 5 36 2U6 L7Q 20 30 2U6 L71 21 5 2L6 

L72 21 15 2L6 L73 21 21 2L6 L74 22 21 2L6 L74A 22 20 2U6 

L74B 21 30 2L6 L74C 22 5 2L6 L74D 22 14 2L6 L74G 22 16 2L6 

L75 22 26 2L.6 L76 22 32 216 L.78 23 4 2L6 L79 23 8 21.6 

L7L 6 5 2L6 L8 6 14 2L6 L81 24 38 2L6 U83 25 2 216 

L84 25 14 2L6 L85 25 9 2L6 L.8L 6 12 2L6 LABEUX 2 7 1L6 

LAC8 3 34 1L6 LADJC9 4 5 1L6 L.ASTWD 3 1 1L6 LBLKEY 36 2 2U6 

LBLLSP 35 12 2L6 L3XLE.S 2 12 1L6 LCKPRA 4 9 116 LC9NV 4 3 116 

LDSYS 24 7 2L6 LILLF1 3 37 116 LlLLTA 3 38 1L6 LINCBR 3 39 1U6 

LINKX 1 33 1L6 LMPQT 34 7 2L6 INKARK 35 38 216 LNKPTR 2 13 1L6 

LNKXMN 1 IS 1L6 LNXWDP 4 2 1L6 L.NXW9R 3 35 1L6 19C 3 11 1L6 

L6CCNT 2 H 1L.6 L9SUBF 4 11 116 L,9WC9M 1 35 1L6 LPVECL 4 10 1U6 

LREPAC 4 6 1L6 LSERHL 3 36 1L6 LSRCHR 4 8 1L6 ISRCHS 4 7 1L6 

LSTBRK 4 1 1L6 LSUBUT 34 8 216 LTRAVE 4 4 1L6 MABSLS 35 5 21,6 

MANMIS 26 30 2L6 MAPTYP 35 18 2L6 MEM^T 34 6 2L6 MEMSIZ 3 6 1L6 

MIFMPI 1 34 il.6 MIFPRR 1 38 1L6 MIRmTE 3 7 1L6 MISSQT 34 19 2L6 

MLKKTS 3 3 1L6 M6VE 1 28 2L6 M9VE1 1 29 2L6 M9VE2 1 38 2L6 

M9VE2 1 35 216 MPRHST 1 17 116 MPRTYP 35 10 2L6 MSEVEN 34 29 2L6 

MSGTRM 34 18 2L6 MSIX 34 35 2L6 MS9PSZ 2 26 1L6 MTWEL.V 34 36 21,6 

MULSR 3 4 1L6 NAMEl 2 3 1L6 NAME2 2 4 1L.6 NAML3 2 5 1L6 

NDPR9G 24 14 2L6 NEwS 4 32 2L6 NEWSQT 34 21 2L6 NINDBT 36 U 2L6 



NLSTBL 36 7 2L6 N9PMSK 35 11 2L6 NSBRML 3 20 1L6 NXWDP2 13 28 2L6 

NxW9RD 24 37 2L.6 8CT 1 27 216 6FL8QT 34 11 2L6 9NE 34 32 216 

9NES 34 30 2L6 3PMASK 35 9 2L6 9PTAB1 35 25 2L6 8PTA32 35 30 2L6 

9SUBF 26 38 2L6 P2 3 28 2L6 P3 3 26 2L6 P5 4 12 216 

P6PD 29 23 2L6 PR2BIG 25 37 2L6 PRC 1 10 2L6 PRC1 33 27 2L6 

PRCLNK 33 83 2L6 PRCPeP 33 24 2L6 PRL8C 3 39 2L6 PRQ 1 11 2L6 

PRQLNK 33 33 2L6 PRuPdP 33 34 2L6 PRSTRT 2 1 116 PRTYPE 1 37 116 

PS 2 4 2L.6 PVECLT 22 39 2L.6 R14BIN 29 15 2^6 R24BIN 29 3 216 

RDENDP 24 21 2L6 RDTAIL 9 14 2L6 RDTEXT 7 13 2L6 RELAB 36 22 2L6 

RELWCT 3 9 1L6 RELWRD 3 8 1L6 REPACK 32 17 2L6 REPCK1 33 6 2L6 

REPK1 32 19 2L6 RECJBIT 35 31 21.6 RNXPLK 5 12 2U6 RS 2 5 216 

RUB 4 6 2L6 RU310 ^ 28 2L6 RUB3 4 20 216 RUNT9P 2 24 1L6 

RW8RD 1 31 1L6 S3RMIN 35 J7 2L6 SCALT3 2 31 1L6 SERHLT 19 6 216 

SIGN 34 37 216 SIGNBT 34 38 2L6 SKIP 28 37 216 SKIP1 ?9 1 2L6 

S6S 3 25 116 SRCHRP 20 7 2L6 SRChST 17 2 2L6 STBRK 18 9 216 

STDUM 2 15 1L6 STFLC8 1 32 1L6 STFSCA 2 21 116 STFXC9 2 14 1U6 

STLM9P 35 16 2L6 STNXPR 2 23 116 STSCAU 2 30 116 STTEMP 2 17 1L6 

STUP1 23 36 2L6 STuPE8 23 15 216 STXM8P 35 6 2L6 STXSCA 2 19 116 

SYMPT1 3 23 1L6 SYMPT2 3 24 1L6 ' SYSL.9P 35 15 2L6 SYSSUB 35 2 2L6 

TABLCT 2 32 1L6 TAGBIT 36 6 2L6 TAGP9P 36 10 2L6 TBLE 3 j8 1U6 

TBLE6 3 19 lt.6 TEMPI 2 10 1L6 TEMP2 1 23 1L6 TEMP3 1 24 1L6 

THREE 34 34 2L6 T*P1 3 12 1L.6 TMP2 3 13 116 TMP3 3 14 11,6 

ThPLKY 35 39 2L6 T9PMEM 34 28 2L6 TPMPUK 3 5 116 TRAVEC 18 21 21,6 

TSRIB "3 29 116 TSRL13 3 28 1L6 TSRLB1 3 30 1L6 TVSTRT 1 25 116 

T^8 34 33 2L6 UNOLAD 35 4 216 VADR 2 18 1L6 VC9UNT 2 20 1L6 

VECADR 2 33 1L6 VECCNT 2 35 1L6 WAIT 3 31 2L6 WQRD 2 6 1L6 

XA 1 20 2L6 X5 1 19 216 XBC 1 14 2U6 XLC8KY 35 35 2L6 

XSLBKY 35 37 2L6 XSLCKY 35 36 2L6 Zl 27 2 2L6 Z2 27 4 2U6 
ZER8 34 31 2L6 



SYM, PG»LM» IDENT. 



6BIT 27 13 2R6 

9BIT 2 p7 kRS 

Ab 1 13 3r6 

ACBBIT b 18 1R6 

AC39UT 9 16 2R6 

ADRLPl 6 35 1R6 

ADSC2 16 13 3R6 

ADS08 17 2 3R6 

ADS15 17 16 3R6 

ADS24 18 2 3R6 

ADS31 18 9 3R6 

ADS4Q 18 25 3R6 

AGXP6P 21 34 2R6 

ARCOO 18 32 3R6 

ARD08 19 38 3R6 

ARRAY 5 20 1R6 

Ax3A 2 15 2R6 

AxC 2 12 3R6 

AxCE 2 14 4R6 

BA 1 17 2R6 

BAQ3P 4 12 2R6 

BEG 1 36 3R6 

BFD07 20 24 3R6 

BFS 1 35 4R6 

BK3ADR 7 H 1R6 

BKPM6P 27 11 4R6 

BNE 1 37 3R6 

BRKRX 8 6 1R6 

BTR 1 36 ^+R6 

BxAC 2 17 2R6 

BXC 1 11 2R6 

BxC 1 9 4R6 

CA 1 10 3R6 

CB 1 14 2R6 

CCHR 5 27 1R6 



6BIT 2 26 4R6 
A 00 7 5 3R6 
AB 1 14 4R6 
AC3CHR 5 19 1R6 
ACBSCT 27 10 2R6 
ADRLPS 6 37 1R6 
ADS04 16 24 3R6 
ADSlC 17 8 3R6 
ADS17 17 21 3R6 
ADS25 18 3 3R6 
ADS33 IS 14 3R6 
AGFP6P 21 31 2R6 
ALFPeP 21 20 2R6 
ARC15 38 7 3R6 
ARGADR 5 7 1R6 
AX 1 21 2R6 
AXBA 2 14 3R6 
AXC 2 13 4R6 
81 6 19 4R6 
3A 1 14 3R6 
BE 4 38 1R6 
3E'J 1 37 4R6 
BFDOS 20 28 3R6 
BKQADR 7 8 1R6 
BK4ADR 7 12 1R6 
QKPP9P 9 29 2R6 
BNE 1 38 4R6 
BRTBL 25 11 3R6 
BX 1 18 2R6 
BXAC 2 16 3R6 
BXC 2 15 3R6 
C2 5 10 4R6 
CA 1 11 4R6 
C3 1 11 3R6 
CDBOO 21 5 3R6 



93IT 27 14 2R6 
A3 1 16 2R6 
ACB 8 35 2R6 
ACBLIM 27 9 2R6 
ADRLPO 38 10 3R6 
ADRMSK 40 4 3R6 
ADS05 16 30 3R6 
ADS12 17 10 3R6 
ADS20 17 29 3R6 
ADS26 18 4 3R6 
ADS34 18 16 3R6 
AGTPdP 5 22 3R6 
ALXPPP 21 23 2R6 
ARDOO 19 16 3R6 
ARGM 20 15 2R6 
AX 1 18 3R6 
AXBA 2 15 4R6 
AXCE 2 14 2R6 
B6 27 15 2R6 
BA 1 15 4R6 
BEAKQT 27 5 2R6 
BFDOO 20 6 3R6 
3FD10 20 35 3R£ 
3K1A0R 7 9 1R6 
3KP10 10 9 2R6 
BLNK 40 9 3R6 
BRKRA 8 5 1R6 
BRUM9P 4 1 3R6 
BX 1 15 3R6 
3XAC 2 17 4R6 
BXC 1 8 3R6 
C3 5 9 4R6 
GARRET 28 U 2R6 
CB 1 12 4R6 
CD804 21 14 3R6 



9BIT 41 25 3R6 

ACB1 9 7 2R6 

ACBMSK 27 H 2R6 

ADRLP1 38 11 3R6 

ADSOO 16 4 3R6 

ADS06 16 33 3R6 

A0S13 17 11 3R6 

ADS22 17 39 3R6 

ADS30 18 7 3R6 

ADS36 18 18 3R6 

AGTTP1 4 1 1R6 

AP9PCD 40 6 3R6 

ARD05 19 26 3R6 

ARGSGN 5 6 1R6 

AX 1 19 4R6 

AXC 2 13 2R6 

AXCE 2 13 3R6 

B9 27 16 2R6 

BAD 4 34 2R6 

BEQ 1 37 2R6 

BFD05 20 16 3R6 

BFS 1 34 3R6 

BK2ADR 7 10 1R6 

BKP5 , 9 38 2R6 

BNE 1 38 2R6 

BRKRP 8 4 1R6 

BTR 1 35 3R6 

BX 1 16 4R6 

BXC 2 16 2R6 

BXC 2 16 4R6 

CA 1 13 2R6 

CARRET 40 7 3R6 

CC 4 39 1R6 

CD806 21 18 3R6 



CGERR 

CHRTBL 

CLAFLE 

C8G94 

C0U9TE 

CS1 

CSSW3 

Dl 

D100 

duo 

DX20 

D130 

02 

D230 

D260 

D2310 

D2B16 

D2B22 

D2B27 

D2B33 

02B47 

D2B60 

D2B65 

039 

D410 

0460 

D500 

D530 

D58 

D62 

D625 

D7Q 

0740 

080 

D83885 

D9 

D925 

D950 



3 

36 

3 

5 

5 

14 

5 

10 

11 

11 

11 

5 

14 

15 

22 

23 

23 

24 

24 

26 

26 

26 

37 

16 

17 

17 

18 

8 

8 

19 

8 

19 

8 

37 

41 

20 

20 



28 
18 
14 
27 

?8 

4 

29 

32 

3 

11 
21 
35 
35 
18 
33 
22 
36 
26 
37 

8 
27 

36 

29 

8 

11 

21 
4 

1 
12 

3 
24 
26 
39 
34 

3 

4 
39 



4R6 
3R6 
2R6 
^R6 
2R6 
2R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
3R6 
3R6 
4R6 
4R6 



CHAR 

CHSll 

CLFLE 

C9MPG9 

CRLF 

CS5 

CSSW4 

D10 

D100C 

D1100 

D1200 

D1300 

D200 

D24 

D2B00 

D2B12 

D2B17 

D2B24 

D2B28 

D2B35 

02B48 

D2B61 

D2B66 

D4 

D420 

D47 

D510 

D55 

D6 

D620 

D63 

D7 

D75 

D800 

DS5 

D9Q 

094 

D955 



5 

4 

6 

3 

41 

5 

14 

41 

21 

22 

22 

23 

12 

37 

21 

22 

23 

24 

24 

25 

26 

26 

26 

40 

16 

41 

17 

7 

41 

18 

8 

19 

8 

20 

9 

9 

10 

21 



26 

18 

38 
20 
29 

5 
30 

4 

20 

3 

23 

31 

23 

28' 

23 

38 

27 

7 

29 

1 

11 

39 
38 
31 

6 
30 
23 

1 
14 
13 
18 
29 
17 
16 
37 

7 

2 



1R6 
1R6 
2R6 
4R6 
3R6 
2R6 
4R6 
3R6 
4R6 
4R6 
4R6 
4R6 
4R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
4R6 
3R6 
4R6 
4R6 
3R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
*+R6 



CHCNT 

CIT 

CMA 

C9NTQT 

CRSET 

CSET 

CURFLE 

D10 

0105 

01120 

D125 

D15o 

D210 

D240 

D2B05 

D2B13 

D2B19 
D2B25 

D2B30 
D2B45 

D2B50 

D2B62 

D2B6S 

0400 

D45o 

D5 

0511 

056 

060 

0621 

065 

0710 

077 

0805 

D86 

092 

D94Q 

0960 



4 

1 
36 
27 

14 

14 

6 

6 

10 

22 

11 

11 

12 
14 

23 

23 
24 
24 
25 
26 
26 
27 
16 
16 

40 

37 

7 

8 

18 

8 

19 
8 
20 
9 
10 
21 
21 



37 

4 

26 

3 
16 
14 
11 
34 
26 

2 
15 
38 
25 
38 

6 

1 
30 
12 
31 
33 
16 
31 

2 

3 
39 
39 
33 
34 
10 
21 
17 
23 
37 
21 
26 

2 
11 
12 



1R6 
4R6 
3R6 
2R6 
4R6 
4R6 
1R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
4R6 
4R6 
3R6 
3R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 



CHMSK 

CLAFU5 

CMMDQT 

CQ2 

CS 

CSSW 

D 

D100 

D109 

D1130 

013 

02 

D23 

D250 

D2B06 

D2B15 

D2B21 
D2B26 
02B31 
D2B46 

D2B52 
D2B63 

03 

D405 

0455 

D5Q 

053 

D57 

0610 

0622 

07 

0730 

D8 

D810 

D87 

0920 

095 

D97 



40 
7 
27 
5 
4 
14 
5 
37 
11 
22 
37 
40 
41 
15 
22 
23 
23 
24 
24 
25 
26 
26 

40 

16 

17 

7 

7 

8 

18 

18 

41 

19 
37 

20 
9 
20 
10 
10 



12 

16 

2 

29 

36 

17 

1 

32 

2 

14 

27 

34 

5 

4 

8 

13 

34 

15 

34 

29 

19 

33 

37 

9 

2 

6 

18 

5 

5 

23 

2 

25 

25 

24 

30 

2 

13 

16 



3R6 
2R6 
2R6 
2R6 
2R6 
4R6 
1R6 
3R6 
4R6 
4R6 
3R6 
3R6 
3R6 
4R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
3R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
4R6 
3R6 
4R6 
3R6 
4R6 
4R6 
4R6 
4R6 
4R6 



D970 

DBLXRG 

DC 

DD255 

DD8TR 

DtCERR 

DECL4Q 

DECL9 

DL 

DL10 

DM20 

DM7 

DNMCHR 

DNUMB 

D6FXIT 

DPAP8P 

DS 

DTMP2 

EOO 

EQSIZT 

E20 

E3 

E60T9 

END03 

E6R01 

EP 

ERLSZE 

ERR6 

ERRFCH 

ERR0T2 

FOO 

F3 

FCL 

FCR 

FDBUG 

FE6R 

FFL9AT 

FIXLNK 



21 

21 

6 

41 

7 

25 

24 

24 

36 

i5 

38 

37 

7 

7 

4 

22 

5 

7 

7 

4 

8 

3 

23 

25 

15 

5 

5 

6 

38 

41 

8 

4 

1 

1 

3 

3 

7 

5 



15 
13 
28 
13 
18 

1 
36 

20 
27 

8 

1 

37 

19 

20 
29 
30 
13 
26 
11 
30 
12 
11 
29 
28 
18 
14 
28 
19 

8 
35 
36 
24 

9 
10 
26 
20 
13 
22 



4R6 
2R6 
1R6 
3R6 
1R6 
2R6 
2R6 
2R6 
3R6 
3R6 
3R6 
3R6 
1R6 
1R6 
1R6 
2R6 
1R6 
1R6 
3R6 
1R6 
3R6 
4R6 
4R6 
2R6 
3R6 
1R6 
1R6 
2R6 
3R6 
3R6 
3R6 
4R6 
2R6 
2R6 
1R6 
1R6 
1R6 
1R6 



D99 

D3\ 

DCL6S5 

DD255 

DE 

DECLlO 

DECL5 

DECLFL 

DLOO 

DM 100 

DM257 

DMS 

DNSOO 

D9FP8P 

D9UT 

DPMP8P 

DTE8L 

0V8ASE 

EOADR 

EOTAq 

E22 

EADR 

ELEMTS 

ENODMY 

E9R03 

ERLLIM 

ERLTBL 

ERR7 

ERR6CT 

E ! WG 

Fl 

F4 

FCL 
FCR 

FDLOO 
FERR 
FI9 
FIxTMP 



37 
7 

13 

41 

5 

24 

24 

23 

14 

38 

41 

37 

27 

19 

13 

15 

6 

7 

1 

1 

8 

4 

5 

3 

15 

5 

5 

6 

38 

8 

4 

4 

1 

1 

2 

3 

2 

4 



31 
16 

5 
12 

2 
34 
22 
15 
28 

2 

38 
36 
18 

10 
36 
38 
27 
10 
11 
14 
23 
24 

7 
20 
32 
30 
21 

9 

1 
21 
27 

6 

7 
34 
19 
19 

2 



3R6 
1R6 
4R6 
3R6 
1R6 
2R6 
2R6 
2R6 
3R6 
3R6 
3R6 
3R6 
3R6 
2R6 
4R6 
2R6 
4R6 
1R6 
1R6 
1R6 
3R6 
1R6 
1R6 
4R6 
3R6 
1R6 
1R6 
2R6 
3R6 
1R6 
4R6 
4R6 
3R6 
3R6 
3R6 
1R6 
4R6 
1R6 



DADRIN 

DBUF 

DCL9SE 

DD39 

DEBUG 

DECL3 

DECL.50 

DIN 

DL02 

DM12 

DM3 

DNAME1 

DNS02 

D9FTAD 

D8XP8P 

DPSP9P 

DTE8L2 

DW 

EOIND 

El 

E23 

EADR1 

EMASK 

ENDI8L 

E9R0? 

ERLLIM 

ERR1 

ERR8 

ERR8R 

EXIT 

F10 

FARF 

FCL 

FCR 

FDTOO 
FFA 

FI8DIR 
FIXTP2 



7 

4 
13 
37 

6 
24 
24 
13 
14 
37 
37 

7 

4 

19 

22 

6 

5 

1 
3 
8 
1 
41 
25 
15 
5 
6 
6 
5 
4 
9 
3 
1 
1 
28 
2 
3 
4 



15 
32 

1 
30 
32 

5 
35 
32 
33 
39 
36 
21 

1 
28 

3 
39 
39 

3 
12 
12 
16 
13 
17 
22 
31 
31 
10 
31 
38 
31 
21 
18 

7 

8 
36 
21 
22 

8 



1R6 
1R6 
4R6 
3R6 
4R6 
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